define(f,`ifelse($1,0,,$2
`f(decr($1),eval($2+$2*$3/100),$3)')')f(translit(include(/dev/fd/0),:,`,'))