import System.Time
m@main=getLine>>=mapM(putStrLn.g.take 21).f.map read.words>>m
f[m+1,y]=[h$shows([(January)..]!!m)$' ':show y," Su Mo Tu We Th Fr Sa"]++take 6(iterate(drop 21)$(3*scanl(+)6([0..]>>=d)!!(12*y+m)#7)%([1..d y!!m]>>=s.show))
d n=[a,28+0^(n#4+0^n#25*n#16),a,30,a,30,a,a,30,a,30,a]
a=31
g(_:x)=x
g x=x
h x=div(22-l x)2%x++9%""
s n=(3-l n)%n
a%b=([1..a]>>" ")++b
(#)=mod
l=length