main=f '1' f a=do b<-getLine;putStrLn[a&b];f$a&b a&[b,c]|a==b=c|a==c=b|0<1=a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page