nicer styles in test app; mdo with html monad