eitherIntVal :: B.ByteString -> Either String [Integer]
eitherIntVal = runGet (do 
    xs <- replicateM 5 (optional getWord16be)
    return $ map fromIntegral $ catMaybes xs)
eitherIntVal :: B.ByteString -> Either String [Integer]
eitherIntVal = runGet (do 
    xs <- replicateM 5 (optional getWord16be)
    return $ map fromIntegral $ catMaybes xs)
eitherIntVal = runGet (do 
    xs <- replicateM 5 (optional getWord16be)
    return $ map fromIntegral $ catMaybes xs)