Simplify Escoger.Interactive through state monad