ohmega
bidirectional
rm rev.2d
/bin/umodem rev.2d STOP
,.....|.........................,
:r    |  *===========*          :
------#->!split (W,W)!--+       :
:     v  *===========*  v       :
:*=============*| *============*:
:!case N of S,E!#>!send [(N,E)]!-
:*=============*| *============*:
:      |        |               :
:      |      +-#--------+      :
:      v      | |        v      :
:  *=======*  | |     *=====*   :
:  !split N!--+ |  +->!use r!----
:  *=======*    |  |  *=====*   :
:       |       |  |            :
:+------+       |  +-----+      :
:|              v        |      :
:| *===================* |      :
:+>!send [(Inl(W,N),E)]!-+      :
:  *===================*        :
,...............................,
,.........................|..,
:rev                      v  :
:*=================*  *=====*:
:!send [(Inr(), E)]!->!use r!-
:*=================*  *=====*:
,............................,
STOP
verify rev rev.2d