Ticket #3808: prod.hs

import qualified Data.ByteString.Lazy as BS
import System.IO
import Data.Binary



fibs = 0 : 1 : zipWith (+) fibs (tail fibs) :: [Integer]
main = do BS.hPutStr stdout . encode $ take 5000 fibs -- [(0::Integer)..]