(port-fold(^(s\)(let*(`string->list,length(n(max,`s,`\))(! reverse!),!'(^x(take(!,x,x)n))(\((#/(.*?)h?o?$/(fold(^(c d q)#`",q,c,d")""'`s'`\))1)))(print\)\))"h"read-line)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).