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

,.........................|.......................,
:mult *==================*|                       :
----->!send [(W,S),(W,E)]!#-+                     :
:     *==================*v |                     :
:      |     *=============*| *==================*:
:      |     !case N of S,E!#>!send [(Inr (), E)]!-
:      |     *=============*| *==================*:
:      |      |             |                     :
:      |      v             v                     :
:      |  *========*  *========*                  :
:      +->!use mult!->!use plus!-------------------
:         *========*  *========*                  :
,.................................................,
STOP
./verify mult mult.2d