{{/s(%stdin)(r)file 99 string readline pop def/n s length 1 sub def[s n{dup dup
concatstrings 1 n 1 add getinterval}repeat]{lt}.sort 0 1 index{s eq{=only( )print
exit}if 1 add}forall{n 1 getinterval print}forall()=}loop}stopped
Note that non-ascii characters in the above source code will be escaped (such as \x9f).