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

0491661074958629731474177635121494097659853624439308318805119939712695061304256693829352470790669926

stdout

6299660970742539283966524031605962179399115088138039344263589567904941215367714741379268594701661940

stderr

strace