dz = [1, I-1, -I]
z = 0
d = 0
n = -1

move(printonly=0) = {
	if (!printonly,
		z += dz[1+d%#dz];
	);
	print (n++ " " real(z));
}

\\ F -> F+F-F
F(r) = {
	if (r-->=0,
		F(r); d++; F(r); d--; F(r),
		move()
	);
}

move(1)
F(8)

quit