let rec q()=Scanf.scanf"%d %d
"(fun m d->if m<>0&&d<>0then(let rec($)i z=if i>m-2then z else(i+1)$((z+[|31;29;31;30;31;30;31;31;30;31;30;31|].(i))mod 7)in q(print_endline([|"Mon";"Tues";"Wednes";"Thurs";"Fri";"Satur";"Sun"|].((d+(0$2))mod 7)^"day"))));;q()