,.......................|..........,
:plus                   |          :
: *==================*  |          :
->!send [(W,S),(W,E)]!--#---+      :
: *==================*  |   |      :
:  +                    |   |      :
:+-+   +----------------+   |      :
:|     v                    v      :
:|*==============*  *============* :
:|!case N of S, E!->!send [(N,E)]!--
:|*==============*  *============* :
:|       |                         :
:|       v                         :
:| *========*  *================*  :
:+>!use plus!->!send [(Inl W,E)]!---
:  *========*  *================*  :
,..................................,

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