rail, 540 bytes

Result

WA

Code [DL]

$'main'
 \-[99](!e!)-\  
              |
/----(!x!)0---/
|
|               /--s--1--(a)---m---------\
|               |                        |
|               \                        |
|                \              /-[1000]-/
\--(e)1s(!e!)--1i----(!a!)(a)0q<
 /                              \
/                               |
|                               |
\                               |
 >{~}q0(e)(!x!)a(x)-------------/
/
|
\-(x)o#

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

stdin

7759246000934137226974713703308842779750900635449042192196279394487927663418137393526341323501698409

stdout

stderr

Crash: Type mismatch

strace