printing infinite data in Haskell