((0 0 7 20) ((procedure start (put-mark (if mark? (turn-left turn-left) ()) step put-mark))))