runRunner :: Runner s r -> s -> ReturnType r s
runRunner runner initialState = runExceptT (runStateT runner initialState)
runRunner :: Runner s r -> s -> ReturnType r s
runRunner runner initialState = runExceptT (runStateT runner initialState)
runRunner runner initialState = runExceptT (runStateT runner initialState)