define(h,`eval(($1+$1/4-$1/100+$1/400+($2+6)*13/5+$3)%7)')define(g,`ifelse(eval($2<3),1,h(($1-1),$2+12,$3),h($1,$2,$3))')define(f,`ifelse($#,1,,`g(translit($1,` ',`,'))
f(shift($@))')')f(translit(include(/dev/fd/0),`
',`,')0)