main=interact(\i->unlines[l%s"<>"%s" "|l<-lines i%zipWith(s"^V")]) (a:b:c)%f=a:f a b:(b:c)%f;x%_=x s[x,y]a b|a>x=' '|a>b=y|0<1=x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page