define(f,`substr($1,1,eval(len($1)-2))')f(translit((include(/dev/fd/0)),N-ZA-z,A-za-m))