cy, 156 bytes

Result

ERROR

Code [DL]

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

stdin

9340967182493427377345997563109598741335179438333111218254459123728670820773457689418656249058659397

stdout

stderr

strace