rail, 238 bytes

Result

WA

Code [DL]

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

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

$ 'm'
 \-99m9a9a1a#

stdin

6028786902476510712555384021540921924269590307664936491077725993535474731375599188960213838280379259

stdout

stderr

Crash: Type mismatch

strace