Use Accessor to access state in mtl State monad class
