isMaster :: Agent Bool
isMaster = do
  self <- getSelf
  agents <- getAgents

  return $ self == minimum agents
isMaster :: Agent Bool
isMaster = do
  self <- getSelf
  agents <- getAgents

  return $ self == minimum agents
isMaster = do
  self <- getSelf
  agents <- getAgents

  return $ self == minimum agents