main=interact$f.lines;f x=x>>=(x?);[_]?_="\n";x?(y:z)=y:[v|u:v<-x,u==y]?z
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page