compress letter rectangles by yuki

r=reverse
p=tail
f[]=""
f(y:t)=y%t
(x:s)%z|all(==x)s=x:'v':f z|0<1=x:'>':s%(map p z)
x%_=x
main=interact$p.r.f.lines.r

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return top