cy, 142 bytes

Result

WA

Code [DL]

100 =a :>s =b [0,0,0,0,0,0,0,0,0,0,] =c {.a &--} {$c $b $a :: :i &:: 1 + ::= } while {.a ++ 10 <} { $c $a :: =d {.d &--} {$a :<<} while} while

stdin

6777172729385993317299140698880058097545251254086380247526878022384965676451960487849459159139725390

stdout

stderr

Stack Underflow
	@ `<' (0:9)
	@ `while' (0:137)

strace