evaluateCommand c h st = do
  sendOverNetwork h c
  return $ Right st
evaluateCommand c h st = do
  sendOverNetwork h c
  return $ Right st
evaluateCommand c h st = do
  sendOverNetwork h c
  return $ Right st