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[|"Monday";"Tuesday";"Wednesday";"Thursday";"Friday";"Saturday";"Sunday"|].((d+(0$2))mod 7))));;q()