rail, 375 bytes

Result

WA

Code [DL]

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

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

stdin

5320722318678704958508252953386137262050169148249475047162595895639329412965256033733223495578499881

stdout

stderr

Crash: Type mismatch

strace