> (((0 6 1 0) ((procedure start ()))) ((0 15 14 6981) ((procedure start (go-north go)) (procedure go (if wall? (turn-left go) (step go-north go))) (procedure go-north (if north? () (turn-left go-north))))) ((0 16 11 25) ((procedure start (turn-north go)) (procedure go (if wall? () (step go))) (procedure turn-north (if north? () (turn-left turn-north))))) ((3 8 4 5) ((procedure start (if wall? put-mark step)))) ((4 7 18 1099) ((procedure start (if wall? (turn-left start turn-left turn-left turn-left) go-and-return)) (procedure go-and-return (if wall? put-mark (step go-and-return turn-left turn-left step turn-left turn-left))))) ((5 6 2 5) ((procedure start put-mark))) ((5 6 10 53) ((procedure start (if wall? put-mark (step start turn-left turn-left step turn-left turn-left))))) ((5 6 28 113) ((procedure turn-right (turn-left turn-left turn-left)) (procedure start (if wall? (turn-left (if wall? (turn-left (if wall? (turn-left go-and-return turn-right) go-and-return) turn-right) go-and-return) turn-right) go-and-return)) (procedure go-and-return (if wall? put-mark (step go-and-return turn-left turn-left step turn-left turn-left))))) ((5 14 5 13) ((procedure start (if wall? put-mark (step start))))) ((8 9 12 11) ((procedure start (if mark? (get-mark step start turn-180 step turn-180) (put-mark))) (procedure turn-180 (turn-left turn-left)))) ((97 6 27 1253) ((procedure start fill-maze) (procedure fill-maze (if mark? () (put-mark (if wall? () (step fill-maze step-back)) turn-left (if wall? () (step fill-maze step-back)) turn-left turn-left (if wall? () (step fill-maze step-back)) turn-left))) (procedure step-back (turn-left turn-left step turn-left turn-left)))))
>