Frequencies := Array new: 256.
 (1 to: 256) do: [ :i |  Frequencies at: i put: 0 ].
 P :=  (File pathName: 'd:\tmp\comp.txt').
 [ P atEnd ] whileFalse:
    [  J := (P nextByte)+1.  Frequencies at: J put: ((Frequencies at: J) + 1). ].
 P:= nil.

