rail, 418 bytes

Result

WA

Code [DL]

$ '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)--#

stdin

4104990608542578941138917671810113120391881976385285547970682802400910120419265991476873293029028716

stdout

41049906085425789411389176718101131203918819763852855479706828024009101204192659914768732930290287160

stderr

strace