Experiment with Canvas monad