Month Name by kaki(no cheat)

import Time
main@m=getLine>>f
f=do x<-readLn;putStr$shows x" ";print(toEnum$x-1::Month);f

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

download

return to the top page