getMonitor :: DNA ACP
getMonitor = do
    (acp,_,_) <- DNA ask
    return acp

-- | Send message to actor's controller
getMonitor :: DNA ACP
getMonitor = do
    (acp,_,_) <- DNA ask
    return acp

-- | Send message to actor's controller
getMonitor = do
    (acp,_,_) <- DNA ask
    return acp

-- | Send message to actor's controller