[Haskell] A opportunity to lern (parsing huge binary file)