rail, 131 bytes

Result

WA

Code [DL]

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

stdin

1540360747336672169404548392828734134042373983230322187550951431243846472195527131505483669729088273

stdout

3728809279663845051317255912746483421341590557812230323893732404314378282938454049612766337470630451

stderr

strace