serialize :: a -> IO (Serialized a)
serialize x 
    = IO (\s -> 
           case serialize# x s of 
             (# s', bArr# #) -> (# s', Serialized { packetData=bArr# } #) )
serialize :: a -> IO (Serialized a)
serialize x 
    = IO (\s -> 
           case serialize# x s of 
             (# s', bArr# #) -> (# s', Serialized { packetData=bArr# } #) )
serialize x 
    = IO (\s -> 
           case serialize# x s of 
             (# s', bArr# #) -> (# s', Serialized { packetData=bArr# } #) )