ohmega
bidirectional
/bin/umodem test.2d EOF

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

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

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

,.........|....................,
:addint   v                    :
--+   *=============*          :
: +-->!use appendint!+         :
:     *=============*|         :
:+-------------------+         :
:|                             :
:|  *========================* :
:|  !send[(Inr Inr Inl (),E)]!+:
:|  *========================*|:
:|+---------------------------+:
:+#-------+                    :
: |       v                    :
: | *===========*              :
: +>!use multint!---------------
:   *===========*              :
,..............................,

,.........|......,
:car      v      :
:    *=======*   :
:    !split N!+  :
:    *=======*|  :
:+--------#---+  :
:|        v      :
:|  *===========*:
:+->!send[(N,E)]!-
:   *===========*:
,................,

,.........|.....,
:cdr      v     :
:    *=======*  :
:    !split N!+ :
:    *=======*| :
:+-----+      | :
:|            v :
:| *===========*:
:+>!send[(N,E)]!-
:  *===========*:
,...............,

,.........|..........,
:next     v          :
:    *=============* :
:    !case N of S,E!+:
:    *=============*|:
: +---------#-------+:
: |         v        :
: |  *=======*       :
: |  !use cdr!--------
: |  *=======*       :
: v                  :
:*============*      :
:!send[((),E)]!-------
:*============*      :
,....................,

,.........|.........,
:srfDr    v         :
:     *=======*     :
:     !split N!+    :
:     *=======*|    :
:  +------+    |    :
:  |           v    :
:  |  *===========* :
:  +->!send[(N,E)]!+:
:     *===========*|:
:  +---------------+:
:  v                :
: *=======*         :
: !use car!----------
: *=======*         :
,...................,

,.........|.........,
:srfDt    v         :
:     *=======*     :
:     !split N!+    :
:     *=======*|    :
:  +------+    |    :
:  |           v    :
:  |  *===========* :
:  +->!send[(N,E)]!+:
:     *===========*|:
:  +---------------+:
:  v                :
:*=========*        :
:!use srfDr!---------
:*=========*        :
,...................,

,........|...............,
:srfDe   v               :
:   *=======*            :
:   !split N!+           :
:   *=======*|           :
:    |       v           :
:    |     *===========* :
:    +---->!send[(N,E)]!+:
:          *===========*|:
:      +----------------+:
:      v                 :
:  *=======*             :
:  !split N!-------+     :
:  *=======*       v     :
:     |    *===========* :
:     +--->!send[(N,E)]!+:
:          *===========*|:
:     +-----------------+:
:     v                  :
:  *=======*             :
:  !split N!------+      :
:  *=======*      v      :
:        | *===========* :
:        +>!send[(N,E)]!--
:          *===========* :
,........................,

,.................................|............,
:lUiD1                            v            :
--+                *=================*         :
: |                !send[(N,S),(N,E)]!+        :
: |                *=================*|        :
: | +-------------------------------+ |        :
: | |                                 v        :
: | |                          *=======*       :
: | |                          !use car!+      :
: | |                          *=======*|      :
: | |                                   v      :
: | |                      *=================* :
: | |                      !send[(N,S),(N,E)]!+:
: | |                      *=================*|:
: | |                               |         |:
: | | +-----------------------------#---------+:
: | | |                             v          :
: | | |                    *=================* :
: | | |                    !send[(N,S),(N,E)]!+:
: | | |                    *=================*|:
: | | |                             |         |:
: | | | +---------------------------#---------+:
: | | | |                           v          :
: | | | |                  *=================* :
: | | | |                  !send[(N,S),(N,E)]!+:
: | | | |                  *=================*|:
: | | | |  +------------------------+         |:
: | | | | +#----------------------------------+:
: | +-#-#-##-------------------+               :
: |   | | ||                   v               :
: |   | | ||               *=======*           :
: |   | | ||               !use cdr!+          :
: |   | | ||               *=======*|          :
: |   | | ||                        v          :
: |   | | ||               *=================* :
: |   | | ||               !send[(N,S),(N,E)]!+:
: |   | | ||               *=================*|:
: |   | | ||  +---------------------+         |:
: |   | | || +#-------------------------------+:
: |   +-#-##-##----------------+               :
: |     | || ||                v               :
: |     | || ||            *=======*           :
: |     | || ||            !use car!+          :
: |     | || ||            *=======*|          :
: |     | || ||                     v          :
: |     | || ||            *=============*     :
: |     | || ||            !case N of S,E!+    :
: |     | || ||            *=============*|    :
: |     | || ||  +----------------+       |    :
: |     | || || +#------------------------+    :
: |     +-##-##-##---------------+             :
: |       || || ||               v             :
: |       || || ||         *===========*       :
: |       || || |+-------->!send[(N,E)]!+      :
: |       || || |          *===========*|      :
: |       || || |                       v      :
: |       || || |              *=========*     :
: |       || || |              !use srfDr!+    :
: |       || || |              *=========*|    :
: |       || || |                         |    :
: |       || || |  +----------------------+    :
: |       || || |  |                           :
: +-------##-##-#--#-----------+               :
:         || || |  |           v               :
:         || || |  |       *=======*           :
:         || || |  |       !use cdr!+          :
:         || || |  |       *=======*|          :
:         || || |  |+---------------+          :
:         || || |  +#------------+             :
:         || || |   |            v             :
:         || || |   |      *===========*       :
:         || || |   +----->!use multint!+      :
:         || || |          *===========*|      :
:         || || |    +------------------+      :
:         +#-##-#----#----------+              :
:          | || |    |          v              :
:          | || |    |     *=========*         :
:          | || |    |     !use srfDt!+        :
:          | || |    |     *=========*|        :
:          | || |    |                v        :
:          | || |    |     *===========*       :
:          | +#-#----#---->!use multint!+      :
:          |  | |    |     *===========*|      :
:          |  | |    | +----------------+      :
:          |  | |    +-#--------+              :
:          |  | |      |        v              :
:          |  | |      |   *==========*        :
:          |  | |      +-->!use addint!+       :
:          |  | |          *==========*|       :
:          |  | |       +--------------+       :
:          +--#-#-------#-------+              :
:             | |       |       v              :
:             | |       |  *=========*         :
:             | |       |  !use srfDe!+        :
:             | |       |  *=========*|        :
:             | |       |+------------+        :
:             | |       +#------+              :
:             | |        |      v              :
:             | |        | *==========*        :
:             | |        +>!use addint!---------
:             | |          *==========*        :
:             | |                              :
:             +-#----------------+             :
:               |                v             :
:               |          *===========*       :
:               +--------->!send[(N,E)]!--------
:                          *===========*       :
,..............................................,

,...................................|..........,
:rUi                                |          :
--+                                 v          :
: |                *=================*         :
: |                !send[(N,S),(N,E)]!+        :
: |                *=================*|        :
: | +-------------------------------+ |        :
: | |                                 |        :
: | |                                 v        :
: | |                           *=======*      :
: | |                           !use car!+     :
: | |                           *=======*|     :
: | |                                    v     :
: | |                      *=================* :
: | |                      !send[(N,S),(N,E)]!+:
: | |                      *=================*|:
: | | +-----------------------------#---------+:
: | | |                             v          :
: | | |                    *=================* :
: | | |                    !send[(N,S),(N,E)]!+:
: | | |                    *=================*|:
: | | | +---------------------------#---------+:
: | | | |                           v          :
: | | | |                  *=================* :
: | | | |                  !send[(N,S),(N,E)]!+:
: | | | |                  *=================*|:
: | | | |  +------------------------+         |:
: | | | | +#----------------------------------+:
: | +-#-#-##-------------------+               :
: |   | | ||                   v               :
: |   | | ||               *=======*           :
: |   | | ||               !use cdr!+          :
: |   | | ||               *=======*|          :
: |   | | ||                        v          :
: |   | | ||               *=================* :
: |   | | ||               !send[(N,S),(N,E)]!+:
: |   | | ||               *=================*|:
: |   | | ||  +---------------------+         |:
: |   | | || +#-------------------------------+:
: |   +-#-##-##----------------+               :
: |     | || ||                v               :
: |     | || ||            *=======*           :
: |     | || ||            !use car!+          :
: |     | || ||            *=======*|          :
: |     | || ||                     v          :
: |     | || ||            *=============*     :
: |     | || ||            !case N of S,E!+    :
: |     | || ||            *=============*|    :
: |     | || ||  +----------------+       |    :
: |     | || || +#------------------------+    :
: |     | || +#-##---------------+             :
: |     | ||  | ||               v             :
: |     | ||  | ||         *===========*       :
: |     | ||  | |+-------->!send[(N,E)]!--------
: |     | ||  | |          *===========*       :
: |     | ||  | |                              :
: |     +-##--#-#----------------+             :
: |       ||  | |                v             :
: |       ||  | |          *===========*       :
: |       ||  | +--------->!send[(N,E)]!+      :
: |       ||  |            *===========*|      :
: |       ||  |                         v      :
: |       ||  |                *=========*     :
: |       ||  |                !use srfDr!+    :
: |       ||  |                *=========*|    :
: |       ||  |    +----------------------+    :
: +-------##--#----#-----------+               :
:         ||  |    |           v               :
:         ||  |    |       *=======*           :
:         ||  |    |       !use car!+          :
:         ||  |    |       *=======*|          :
:         ||  |    |+---------------+          :
:         ||  |    +#------------+             :
:         ||  |     |            v             :
:         ||  |     |      *===========*       :
:         ||  |     +----->!use multint!+      :
:         ||  |            *===========*|      :
:         ||  |      +------------------+      :
:         +#--#------#----------+              :
:          |  |      |          v              :
:          |  |      |     *=========*         :
:          |  |      |     !use srfDt!+        :
:          |  |      |     *=========*|        :
:          |  |      |                v        :
:          |  |      |     *===========*       :
:          |  +------#---->!use multint!+      :
:          |         |     *===========*|      :
:          |         | +----------------+      :
:          |         +-#--------+              :
:          |           |        v              :
:          |           |   *==========*        :
:          |           +-->!use addint!+       :
:          |               *==========*|       :
:          |            +--------------+       :
:          +------------#-------+              :
:                       |       v              :
:                       |  *=========*         :
:                       |  !use srfDe!+        :
:                       |  *=========*|        :
:                       |+------------+        :
:                       +#------+              :
:                        |      v              :
:                        | *==========*        :
:                        +>!use addint!---------
:                          *==========*        :
,..............................................,

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

,..................|............................................,
:traceDstep1       |                                            :
--+                v                                            :
: |     *=================*                                     :
: |     !send[(N,S),(N,E)]!+                                    :
: |     *=================*|                                    :
: | +------------+         |                                    :
: |+#----------------------+                                    :
: +##------------------------------------------------+          :
:  ||                                                v          :
:  ||                                       *=================* :
:  ||                                       !send[(N,S),(N,E)]!+:
:  ||                                       *=================*|:
:  || +----------------------------------------------+         |:
:  ||+#--------------------------------------------------------+:
:  +###-----------------------------------------+               :
:   |||                                         v               :
:   |||                                     *=======*           :
:   |||                                     !use car!+          :
:   |||                                     *=======*|          :
:   |||                                              v          :
:   |||                                     *=================* :
:   |||                                     !send[(N,S),(N,E)]!+:
:   |||                                     *=================*|:
:   |||  +-------------------------------------------+         |:
:   ||| +#-----------------------------------------------------+:
:   ||| ||                                                      :
:   +##-##--------------------------------------+               :
:    || ||                                      v               :
:    || ||                                  *=======*           :
:    || ||                                  !use cdr!+          :
:    || ||                                  *=======*|          :
:    || ||                                           v          :
:    || ||                                  *=================* :
:    || ||                                  !send[(N,S),(N,E)]!+:
:    || ||                                  *=================*|:
:    || || +-----------------------------------------#---------+:
:    || || |                                         v          :
:    || || |                                *=================* :
:    || || |                                !send[(N,S),(N,E)]!+:
:    || || |                                *=================*|:
:    || || |  +--------------------------------------+         |:
:    || || | +#------------------------------------------------+:
:    || || +-##---------------------------------+               :
:    || ||   ||                                 v               :
:    || ||   ||                             *=======*           :
:    || ||   ||                             !use cdr!+          :
:    || ||   ||                             *=======*|          :
:    || ||   ||                                      v          :
:    || ||   ||                             *=================* :
:    || ||   ||                             !send[(N,S),(N,E)]!+:
:    || ||   ||                             *=================*|:
:    || ||   ||  +-----------------------------------+         |:
:    || ||   || +#---------------------------------------------+:
:    || +#---##-##------------------------------+               :
:    ||  |   || ||                              v               :
:    ||  |   || ||                          *=======*           :
:    ||  |   || ||                          !use car!+          :
:    ||  |   || ||                          *=======*|          :
:    ||  |   || ||                                   v          :
:    ||  |   || ||                          *=================* :
:    ||  |   || ||                          !send[(N,S),(N,E)]!+:
:    ||  |   || ||                          *=================*|:
:    ||  |   || ||  +--------------------------------+         |:
:    ||  |   || || +#------------------------------------------+:
:    +#--#---##-##-##---------------------------+               :
:     |  |   || || ||                           v               :
:     |  |   || || ||                       *=======*           :
:     |  |   || || ||                       !use car!+          :
:     |  |   || || ||                       *=======*|          :
:     |  |   || || ||                                v          :
:     |  |   || || ||                       *=================* :
:     |  |   || || ||                       !send[(N,S),(N,E)]!+:
:     |  |   || || ||                       *=================*|:
:     |  |   || || || +------------------------------#---------+:
:     |  |   || || || |                              v          :
:     |  |   || || || |                     *=================* :
:     |  |   || || || |                     !send[(N,S),(N,E)]!+:
:     |  |   || || || |                     *=================*|:
:     |  |   || || || |  +---------------------------+         |:
:     |  |   || || || | +#-------------------------------------+:
:     |  |   || || || +-##----------------------+               :
:     |  |   || || ||   ||                      v               :
:     |  |   || || ||   ||                  *=======*           :
:     |  |   || || ||   ||                  !use car!+          :
:     |  |   || || ||   ||                  *=======*|          :
:     |  |   || || ||   ||                           v          :
:     |  |   || || ||   ||                  *=================* :
:     |  |   || || ||   ||                  !send[(N,S),(N,E)]!+:
:     |  |   || || ||   ||                  *=================*|:
:     |  |   || || ||   ||  +------------------------+         |:
:     |  |   || || ||   || +#----------------------------------+:
:     |  |   || || +#---##-##-----------------------+           :
:     |  |   || ||  |   || ||                       v           :
:     |  |   || ||  |   || ||        *===============*          :
:     |  |   || ||  |   || +#------->!send[((N,W),E)]!+         :
:     |  |   || ||  |   ||  |        *===============*|         :
:     |  |   || ||  |   ||  |                         v         :
:     |  |   || ||  |   ||  |                *=========*        :
:     |  |   +#-##--#---##--#--------------->!use lUiD1!+       :
:     |  |    | ||  |   ||  |                *=========*|       :
:     |  |    | ||  |   ||  | +-------------------------+       :
:     |  |    +-##--#---##--#-#-----------------+               :
:     |  |      ||  |   ||  | |                 v               :
:     |  |      ||  |   ||  | |             *=======*           :
:     |  |      ||  |   ||  | |             !use car!+          :
:     |  |      ||  |   ||  | |             *=======*|          :
:     |  |      ||  |   ||  | |+---------------------+          :
:     |  |      ||  |   ||  | +#------------------+             :
:     |  |      ||  |   ||  |  |                  v             :
:     |  |      ||  |   ||  |  |            *===========*       :
:     |  |      ||  |   ||  |  +----------->!use multint!+      :
:     |  |      ||  |   ||  |               *===========*|      :
:     |  |      ||  |   ||  |   +------------------------+      :
:     |  |      ||  +---##--#---#-------------------+           :
:     |  |      ||      ||  |   |                   v           :
:     |  |      ||      ||  |   |     *===============*         :
:     |  |      +#------##--#---#---->!send[((N,W),E)]!+        :
:     |  |       |      ||  |   |     *===============*|        :
:     |  |       |      ||  |   |                      v        :
:     |  |       |      ||  |   |               *=======*       :
:     |  |       |      +#--#---#-------------->!use rUi!+      :
:     |  |       |       |  |   |               *=======*|      :
:     |  |       |       |  |   | +----------------------+      :
:     |  |       |       +--#---#-#-------------+               :
:     |  |       |          |   | |             v               :
:     |  |       |          |   | |         *=======*           :
:     |  |       |          |   | |         !use cdr!+          :
:     |  |       |          |   | |         *=======*|          :
:     |  |       |          |   | |+-----------------+          :
:     |  |       |          |   | +#--------------+             :
:     |  |       |          |   |  |              v             :
:     |  |       |          |   |  |        *===========*       :
:     |  |       |          |   |  +------->!use multint!+      :
:     |  |       |          |   |           *===========*|      :
:     |  |       |          |   |   +--------------------+      :
:     |  |       |          |   +---#---------------+           :
:     |  |       |          |       |               v           :
:     |  |       |          |       |       *===============*   :
:     |  |       +----------#-------#------>!send[((N,W),E)]!+  :
:     |  |                  |       |       *===============*|  :
:     |  |                  |       |+-----------------------+  :
:     |  |                  +-------##--------------+           :
:     |  |                          ||              v           :
:     |  |                          ||      *===============*   :
:     |  |                          +#----->!send[((N,W),E)]!+  :
:     |  |                           |      *===============*|  :
:     |  |                           |+----------------------+  :
:     +--#---------------------------##---------+               :
:        |                           ||         v               :
:        |                           ||     *=======*           :
:        |                           ||     !use cdr!+          :
:        |                           ||     *=======*|          :
:        |                           ||+-------------+          :
:        |                           |+#------------+           :
:        |                           | |            v           :
:        |                           | |    *===============*   :
:        |                           | +--->!send[((N,W),E)]!+  :
:        |                           |      *===============*|  :
:        |                           |  +--------------------+  :
:        +---------------------------#--#-------+               :
:                                    |  |       v               :
:                                    |  |   *=======*           :
:                                    |  |   !use cdr!+          :
:                                    |  |   *=======*|          :
:                                    |  |            v          :
:                                    |  |   *==============*    :
:                                    |  +-->!use traceDstep!+   :
:                                    |      *==============*|   :
:                                    |    +-----------------+   :
:                                    +----#---------+           :
:                                         |         v           :
:                                         | *===============*   :
:                                         +>!send[((N,W),E)]!----
:                                           *===============*   :
,...............................................................,

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

,.................|...................................................,
:main             |           +------------------+                    :
:                 v           |                  v                    :
:        *=================*  |         *=================*           :
:        !send[(N,S),(N,E)]!+ |         !send[(N,S),(N,E)]!+          :
:        *=================*| |         *=================*|          :
:                 +---------#-+            |               |          :
: +-------------------------+              |               |          :
: | +--------------------------------------#---------------+          :
: | |             +------------------------+                          :
: | |             |           +------------------+                    :
: | |             v           |                  v                    :
: | |    *=================*  |         *=================*           :
: | |    !send[(N,S),(N,E)]!+ |         !send[(N,S),(N,E)]!+          :
: | |    *=================*| |         *=================*|          :
: | |             +---------#-+            |               |          :
: | | +---------------------+              |               |          :
: | | | +----------------------------------#---------------+          :
: | | | |         +------------------------+                          :
: | | | |         |            +-----------------+                    :
: | | | |         v            |                 v                    :
: | | | | *=================*  |        *=================*           :
: | | | | !send[(N,S),(N,E)]!+ |        !send[(N,S),(N,E)]!+          :
: | | | | *=================*| |        *=================*|          :
: | | | |         +----------#-+          |                |          :
: | | | | +------------------+            |                |          :
: | | | | | +-----------------------------#----------------+          :
: | | | | | |                             v                           :
: | | | | | |                 *=================*                     :
: | | | | | |                 !send[(N,S),(N,E)]!+                    :
: | | | | | |                 *=================*|                    :
: | | | | | | +------------------------#---------+                    :
: | | | | | | |                        v                              :
: | | | | | | |               *=================*                     :
: | | | | | | |               !send[(N,S),(N,E)]!+                    :
: | | | | | | |               *=================*|                    :
: | | | | | | |  +---------------------+         |                    :
: | | | | | | | +#-------------------------------+                    :
: +-#-#-#-#-#-#-##-------------------+                                :
:   | | | | | | ||                   v                                :
:   | | | | | | ||            *=============*                         :
:   | | | | | | ||            !use makeDvals!+                        :
:   | | | | | | ||            *=============*|                        :
:   | | | | | | ||                           v                        :
:   | | | | | | ||            *=====================================* :
:   | | | | | | ||            !send[(((Inr Inr Inl (),Inl ()),N),E)]!+:
:   | | | | | | ||            *=====================================*|:
:   | | | | | | || +-------------------------------------------------+:
:   | | | | | | +#-#---------------------------------+                :
:   | | | | | |  +-#-----------------+               |                :
:   | | | | | |    |                 v               v                :
:   | | | | | |    |          *==============*   *==============*     :
:   | | | | | |    +--------->!use traceDstep!-->!use traceDstep!+    :
:   | | | | | |               *==============*   *==============*|    :
:   | | | | | |      +-------------------------------------------+    :
:   | | | | +-#------#-------------------------------+                :
:   | | | |   +------#---------------+               |                :
:   | | | |          |               v               v                :
:   | | | |          |        *==============*   *==============*     :
:   | | | |          +------->!use traceDstep!-->!use traceDstep!+    :
:   | | | |                   *==============*   *==============*|    :
:   | | | |            +-----------------------------------------+    :
:   | | +-#------------#-----------------------------+                :
:   | |   +------------#-------------+               |                :
:   | |                |             v               v                :
:   | |                |      *==============*   *==============*     :
:   | |                +----->!use traceDstep!-->!use traceDstep!+    :
:   | |                       *==============*   *==============*|    :
:   | |                  +---------------------------------------+    :
:   | +------------------#-----------+                                :
:   |                    |           v                                :
:   |                    |    *==============*                        :
:   |                    +--->!use traceDstep!+                       :
:   |                         *==============*|                       :
:   |     +-----------------------------------+                       :
:   +-----#---------------+   +-----+     +------+                    :
:         |               v   |     v     |      v                    :
:         |   *==============*|  *=======*| *=======*                 :
:         +-->!use traceDstep!+  !use car!+ !use car!------------------
:             *==============*   *=======*  *=======*                 :
,.....................................................................,

EOF
verify raytrace test.2d
ls