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

4606177770686052316101089080569693009023890447106157826317072481594131188568986088926437001242472702

stdout

2072742421007346298806898658811314951842707136287516017440983209003969650809801016132506860777716064

stderr

strace