(use gauche.sequence)(port-for-each(rec,n(let*[(t(x->string(read)))(s(size-of t))(o(make-list s""))](#0=dotimes's(#0#(i s)(set!(ref o i)#`",(ref t i),(ref o i)"))(sort! o))(print(ref o n))))read)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).