Create an example of using the reader monad