run :: Parsable t => (t -> IO a) -> (a -> ActionM ()) -> ActionM ()
run runner liftOut = do
    name <- param "name"
    output <- liftIO $ runner name
    liftOut output
run :: Parsable t => (t -> IO a) -> (a -> ActionM ()) -> ActionM ()
run runner liftOut = do
    name <- param "name"
    output <- liftIO $ runner name
    liftOut output
run runner liftOut = do
    name <- param "name"
    output <- liftIO $ runner name
    liftOut output