In[]:= a=Import["/home/i/tmp/libfsm/1/test","Lines"]; In[]:= readbinarystring[x_]:=FromDigits[x,2] In[]:= Tally[Map[Mod[readbinarystring[#],3]&,a]] Out[]= {{0,10929}}