rail, 290 bytes

Result

WA

Code [DL]

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

stdin

8452357582622512199941620130542640157894899129946305133710708967335707957627325427552978584055557264

stdout

2

stderr

strace