> ((get-mark) (((w w w w w w) (w 0 0 1 0 w) (w 0 1 1 0 w) (w w w w w w)) (4 1) west))
>