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)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page