val structure : Parsetree.structure =
  [{pstr_desc =
     Pstr_type (Asttypes.Recursive,
      [{ptype_name =
         {Asttypes.txt = "t";
          loc =
           {loc_start =
             {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 5};
            loc_end =
             {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 6};
            loc_ghost = false}};
        ptype_params = []; ptype_cstrs = []; ptype_kind = Ptype_abstract;
        ptype_private = Asttypes.Public;
        ptype_manifest =
         Some
          {ptyp_desc =
            Ptyp_variant
             ([Rtag ("Foo", [], true, []); Rtag ("Bar", [], true, [])],
             Asttypes.Closed, None);
           ptyp_loc =
            {loc_start =
              {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0;
               pos_cnum = 9};
             loc_end =
              {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0;
               pos_cnum = 22};
             loc_ghost = false};
           ptyp_attributes = []};
        ptype_attributes = [];
        ptype_loc =
         {loc_start =
           {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 0};
          loc_end =
           {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 22};
          loc_ghost = false}}]);
    pstr_loc =
     {loc_start =
       {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 0};
      loc_end =
       {Lexing.pos_fname = ""; pos_lnum = 1; pos_bol = 0; pos_cnum = 22};
      loc_ghost = false}}]