Set lower limit for attoparsec
Use State Monad
Rewrite fromToken to use Env Monad