2020 calendar by henkma

p%c|n<-mod c 3+29,c>0=mapM putStrLn[do x<-take 7[y..n];take 3$(0:[9,0..x]>>" ")++show x|y<-[1-p,8-p..n+7]]>>mod(n+p)7%div c 3

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)


return to the top page