! This is an attempt at a UI monad for modal interfaces ! Example: ! "end" ui-m return [ "first stage" > [ "second stage" ] >> [