let rec(!)?(c=input_char stdin)k=c='-'&k>0&()=Printf.printf"%d
"((k-k*2mod 5*8)/5)& !0;c='*'& !(k+1);!k;;!0