Result

AC

Code [DL]

a={case[],s->""
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

8507532066422599959122828399635500223901342634972153714644033149552643531592485880840494164179663165

stdout

0000000011111111122222222222233333333333344444444444445555555555555666666666677778888888999999999999

stderr

strace