runDnaProgram :: DNA () -> Process ()
runDnaProgram action = do
    -- Obtain parameters
    (acp,ParamActor _ rnk grp) <- expect
    runDNA acp rnk grp action

-- Send value to the destination
runDnaProgram :: DNA () -> Process ()
runDnaProgram action = do
    -- Obtain parameters
    (acp,ParamActor _ rnk grp) <- expect
    runDNA acp rnk grp action

-- Send value to the destination
runDnaProgram action = do
    -- Obtain parameters
    (acp,ParamActor _ rnk grp) <- expect
    runDNA acp rnk grp action

-- Send value to the destination