((0 0 8 9) ((procedure 2 (step start () step)) (procedure start ((if wall? () (2)) put-mark))))