Ticket #3808: cons.hs

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

decode' = decode :: BS.ByteString -> [Integer]
main = do
--      hSetBinaryMode stdin True
        BS.hGetContents stdin >>=  print . length . decode'