rail, 412 bytes

Result

WA

Code [DL]

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

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

stdin

1415076616111821170045079979394530714471572916356869196696035861365782660411286040669431733472027695

stdout

025261877272229322811561810108104105641825582683102746797102107710714697247689377152239715177105428445831387106

stderr

strace