class Regexp::Parser

def increase_level(exp)
  exp.level += 1
  exp.respond_to?(:each) && exp.each { |subexp| increase_level(subexp) }
end