by@kurgm
AC
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
8507532066422599959122828399635500223901342634972153714644033149552643531592485880840494164179663165
0000000011111111122222222222233333333333344444444444445555555555555666666666677778888888999999999999