-- | Get rank of process in group
rank :: DNA Int
rank = do
    (_,Rank n,_) <- DNA ask
    return n

-- | Get size of process group
rank :: DNA Int
rank = do
    (_,Rank n,_) <- DNA ask
    return n

-- | Get size of process group
rank = do
    (_,Rank n,_) <- DNA ask
    return n

-- | Get size of process group