var i,j,k:word;begin repeat read(i,j,k);i:=i-ord(j<3);writeln((i+i div 4-i div$64+i div 400+(j+ord(j<3)*12+6)*13div 5+k)mod 7)until 0>0end.