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