$use Access Arithm List StdIO;

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

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

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