streem, 173 bytes

Result

WA

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")|{x->a(sort(split(x)),"")}|puts

stdin

1029736095570667249332513379758182615125078427336602468658062257842187898939797174275450261968916860

stdout

0000000911111111192222222222229333333339444444955555555556666666666666077777777777797988888888898989

stderr

strace