(define get-maze
'(
(w w w w w w)
(w 0 0 1 1 w)
(w 0 1 1 0 w)
(w w w w w w)
)
)

(define program
  '(
    (procedure r (get-mark r step))
  )
)
(newline)
(simulate (list get-maze (list 4 1) 'west) 'r program 100)