> (((1 0 5 7) ((procedure start (if wall? put-mark (step start))))))
>