f=proc{|s|"{#{s[1]?f[s[0,i=-~s.size/2]]+f[s[i,i]]:s}}"} $><<f[gets]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page