method rec_flag : rec_flag -> rec_flag =
                  function
                  | ReRecursive -> ReRecursive
                  | ReNil -> ReNil
                  | ReAnt _x -> let _x = o#string _x in ReAnt _x