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

verify rev rev.2d