streem, 186 bytes

Result

AC

Code [DL]

a={case[x],s->x
case[x,*y],s->x+s+a(y,s)}
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->a(sort(split(x)),"")}|stdout

stdin

3692469637832795411592119698528553530725939461201025983336589151868705944012917521139334567447347233

stdout

0000011111111111122222222223333333333333334444444445555555555555666666667777777788888889999999999999

stderr

strace