character c
do1 i=1,3e3;call fget(c);n=0
do2 j=0,7;2 n=n*2+ibits(ichar(c),j,1)
1 print'(a1$)',n;end