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

(define turn-west
  '(
    (procedure turn-west
      (if west?
          ()
          (turn-left turn-west)
      )
     )
    )
)
(newline)
(simulate (list get-maze (list 1 2) 'southwest) 'turn-west turn-west 4)