while gets'';($_.split"\n").each{|q|p proc{|y,m,d|m<3?(y-=1;m+=12):0;(y+y/4-y/100+y/400+(13*m+8)/5+d)%7}.call *q.split.map{|i|i.to_i}}end