$ 'main'
 \-0(!0!)0(!1!)0(!2!)0(!3!)0(!4!)0(!5!)\
                                       |
       /------(!9!)0(!8!)0(!7!)0(!6!)0-/
       |
       \---i-{p}--\
         /        |
         |        |
         \        |
          >{~}-e--/
         /
         |
         \--(0)o#

$ '~' (a -- b):
 \
 |   /-t-\ #
 |  /     \|
 \-<       |
    \     /|
     \-f-/ @

$ 'p'
 \---{d}o---#

$ 'd'
 \--(!dup!)(dup)(dup)--#