sendCommand :: Command -> Int -> ProcessM ()
sendCommand c i = do
    p <- getProc i
    sendCommand' c p
    readResponses p i
sendCommand :: Command -> Int -> ProcessM ()
sendCommand c i = do
    p <- getProc i
    sendCommand' c p
    readResponses p i
sendCommand c i = do
    p <- getProc i
    sendCommand' c p
    readResponses p i