example/state-monad.clj を test 化した。