 :: M a -> Algo -> Scene -> IO a
runM ma a s = do
    gen <- create
    runReaderT ma (MRead a s gen)

ru
runM :: M a -> Algo -> Scene -> IO a
runM ma a s = do
    gen <- create
    runReaderT ma (MRead a s gen)
runM ma a s = do
    gen <- create
    runReaderT ma (MRead a s gen)