test :: IO ()
test = do
    (gUser,pUser) <- getUserPutUser
--    gUser (Name "Harold")
--    pUser (Name "Harold") (User (Name "Harold"))
    one <- input gUser pUser (Msg "H" (-1) "my name is h")
    two <- input gUser pUser (Msg "H"    0 "my name is h")
    thr <- input gUser pUser (Msg "H"    1 "Just \"application/json; charset=utf-8\"")
    fou <- input gUser pUser (Msg "H"    1 "Just \"Warp/3.0.13.1\"")
    fiv <- input gUser pUser (Msg "H"    2 "Just \"Warp/3.0.13.1\"")
    mapM_ print [one,two,thr,fou,fiv]

{-
(decode (convertString  "{ \"name\": \"H\", \"msg\": {\"txt\":\"foldC3\",\"msgId\":2}  }")) :: (Maybe Msg)
-}
test :: IO ()
test = do
    (gUser,pUser) <- getUserPutUser
--    gUser (Name "Harold")
--    pUser (Name "Harold") (User (Name "Harold"))
    one <- input gUser pUser (Msg "H" (-1) "my name is h")
    two <- input gUser pUser (Msg "H"    0 "my name is h")
    thr <- input gUser pUser (Msg "H"    1 "Just \"application/json; charset=utf-8\"")
    fou <- input gUser pUser (Msg "H"    1 "Just \"Warp/3.0.13.1\"")
    fiv <- input gUser pUser (Msg "H"    2 "Just \"Warp/3.0.13.1\"")
    mapM_ print [one,two,thr,fou,fiv]

{-
(decode (convertString  "{ \"name\": \"H\", \"msg\": {\"txt\":\"foldC3\",\"msgId\":2}  }")) :: (Maybe Msg)
-}
test = do
    (gUser,pUser) <- getUserPutUser
--    gUser (Name "Harold")
--    pUser (Name "Harold") (User (Name "Harold"))
    one <- input gUser pUser (Msg "H" (-1) "my name is h")
    two <- input gUser pUser (Msg "H"    0 "my name is h")
    thr <- input gUser pUser (Msg "H"    1 "Just \"application/json; charset=utf-8\"")
    fou <- input gUser pUser (Msg "H"    1 "Just \"Warp/3.0.13.1\"")
    fiv <- input gUser pUser (Msg "H"    2 "Just \"Warp/3.0.13.1\"")
    mapM_ print [one,two,thr,fou,fiv]

{-
(decode (convertString  "{ \"name\": \"H\", \"msg\": {\"txt\":\"foldC3\",\"msgId\":2}  }")) :: (Maybe Msg)
-}