cLIissueRequests :: CL.MasterHandle -> IO ()
cLIissueRequests mH = do
  text <- IO.getLine
  request <- parseInput (C8.pack text)
  if isNothing request
  then cLIissueRequests mH
  else do
    let request' = fromJust request
    case request' of
      (PutReq _ k v) -> do
        CL.putVal mH k v >>= (\_ -> return ())
      (DelReq _ k) -> do 
        CL.delVal mH k
      (GetReq _ k) -> do
        CL.getVal mH k >>= (\_ -> return ())
    return ()

  cLIissueRequests mH
cLIissueRequests :: CL.MasterHandle -> IO ()
cLIissueRequests mH = do
  text <- IO.getLine
  request <- parseInput (C8.pack text)
  if isNothing request
  then cLIissueRequests mH
  else do
    let request' = fromJust request
    case request' of
      (PutReq _ k v) -> do
        CL.putVal mH k v >>= (\_ -> return ())
      (DelReq _ k) -> do 
        CL.delVal mH k
      (GetReq _ k) -> do
        CL.getVal mH k >>= (\_ -> return ())
    return ()

  cLIissueRequests mH
cLIissueRequests mH = do
  text <- IO.getLine
  request <- parseInput (C8.pack text)
  if isNothing request
  then cLIissueRequests mH
  else do
    let request' = fromJust request
    case request' of
      (PutReq _ k v) -> do
        CL.putVal mH k v >>= (\_ -> return ())
      (DelReq _ k) -> do 
        CL.delVal mH k
      (GetReq _ k) -> do
        CL.getVal mH k >>= (\_ -> return ())
    return ()

  cLIissueRequests mH