rail, 217 bytes

Result

WA

Code [DL]

$ 'main'
 \-1-[10]{^}o#

$ '^' (val, num -- val):
 \
 |      /(!b!)m[0001](b)s1-\
 |      |                  |
 |      \              /---/
 \-1(!b!)-----{d}0q{~}<
                       \-a(b)m#
$ 'd'
 \-(!q!)(q)(q)#

stdin

0922707388236049933965492747071280242711410931575537364338153158506990610390400907501342288702488692

stdout

stderr

Crash: There is no global binding with that name

strace