CGA Palette by feuermonster

main=mapM(putStrLn.(mapM id("123456">>["0A5F"])!!))$f[0,80,1280]++[1440,1365]++f[2730,2810,4010,4090]
f=(>>= \x->[x,x+5])

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

download

return to the top page