File standardInput readLines map(split map(asNumber)do(writeln(list(pop,y:=first-if(3>m:=pop,m=m+12;1,0),y>>2,0-y=y/100|0,y>>2,2.6*m+1.6|0)sum%7)))