groupSize :: DNA Int
groupSize = do
    (_,_,GroupSize n) <- DNA ask
    return n

-- | Get monitor process
groupSize :: DNA Int
groupSize = do
    (_,_,GroupSize n) <- DNA ask
    return n

-- | Get monitor process
groupSize = do
    (_,_,GroupSize n) <- DNA ask
    return n

-- | Get monitor process