$use Access Arithm StdIO;

$tfunc ParMap s.granule e.list = e.list;
ParMap s.granule e.list, {
	<Left 0 s.granule e.list> :: e.head, <Middle s.granule 0 e.list> :: e.tail,
		<ParMap s.granule e.tail> :: e.tail, <MapFib e.head> :: e.head,
		e.head e.tail;
	<MapFib e.list>;
};

$func MapFib e.list = e.results;
MapFib {
	s.n e.rest = <Fib s.n> <MapFib e.rest>;
	/*empty*/ = /*empty*/;
};

$func Fib s.n = s.fib_n;
Fib {
	1   = 1;
	2   = 1;
	s.n = <Add <Fib <Sub s.n 1>> <Fib <Sub s.n 2>>>;
};

Main =
	<WriteLn <ParMap 3 21 22 23 24 25 26 27 28 29 30>>;