terminal colours by koyama41

m@main=getLine>>=putStrLn.(' '&)>>m
x&(y:z)=[c|x/=y,c<-x%fromEnum y]++"  "++y&z
x&_=x%5
x%y="\27[4"++cycle"6_70291_4"!!y:"m"

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

download

return to the top page