rail, 130 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

1255127909047933462287554233024672604797589074750798638284217964497695967365645753134138801941896184

stdout

4816981491088314313575465637695967944697124828368970574709857974062764203324557822643397409097215521

stderr

strace