n = 0 z = 0 dz = 1 move() = { z+=dz; print (n++ " " real(z)) } L = I left() = dz *= L right() = dz /= L iter(d, flip=0) = { if (flip, L=-L; ); if (d, d--; iter(d); left(); iter(d, 1); right(); iter(d); right(); iter(d, 1); left(); iter(d), move() ); if (flip, L=-L; ); } print (0 " " real(z)) iter(5) quit