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