import "StandardLibrary"

rt :: Serializable a => a -> a
rt v = deserialize (serialize v)

main :: String
main = do
    a = (1 :: Integer,"asd")
    b = MMap.create ()
    MMap.put b "asdasd" (4 :: Long)
    show (rt a, MMap.get (rt b) "asdasd")
--
((1, "asd"), Just 4)