Implement Parser Process1 from a Free monad