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

1490661162806081402262409608093927771857954440906461789505436384075836060482599941665935374117540487

stdout

stderr

strace