refactoring: Quote.hs use StateT