(define (trace name parser)
  (bind parser (lambda (x)
                 (pp (list name x))
                 (result x))))