rail, 131 bytes

Result

WA

Code [DL]

$ 'j'      #(c){j}(x)-@
 --(!x!)(!c!)(c)(x)#g<
$ 'main'@     #(x)(c)-@
 |@      \-uo--
 | \{j}i- \    >#
 9  \    >u-1q/
 \-1a--e/

stdin

3344981162264140791643987502206029026927959600245403135511051554956869692676219381691428793913381353

stdout

3531833193978241961839126762969686594551501155313045420069597296209206022057893461970414622611894433

stderr

strace