Grazing Table Haskell