Result

AC

Code [DL]

a={case[x],s->x
case[x,*y],s->x+" "+s+" "+a(y,s)}
j={case[]->""
case[x,*y]->x+j(y)}
f={n->{x->a(split(x,n),n)}}
stdin|f("0")|f("1")|f("2")|f("3")|f("4")|f("5")|f("6")|f("7")|f("8")|f("9")|{x->j(sort(split(x)))}|stdout

stdin

5470285314876170420979247966166337727002098266217370859722089842969755888613123461625582650343335040

stdout

0000000000011111112222222222222333333333344444444555555555666666666666777777777777888888888899999999

stderr

strace