rail, 130 bytes

Result

WA

Code [DL]

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

stdin

1899304921700895021093037900698695610008790524667979751729280089263737071445033879655253396023604579

stdout

9754063206933525569783305441707373629800829271579797664250978000165968960097303901205980071294039981

stderr

strace