1[ 2 structure_item (attributes.ml[1,0+0]..[1,0+8]) 3 Pstr_attribute "foo" 4 [] 5 structure_item (attributes.ml[3,10+0]..[4,49+9]) 6 Pstr_value Nonrec 7 [ 8 <def> 9 attribute "foo" 10 [] 11 pattern (attributes.ml[3,10+4]..[3,10+38]) ghost 12 Ppat_constraint 13 pattern (attributes.ml[3,10+4]..[3,10+13]) 14 attribute "foo" 15 [] 16 Ppat_var "x" (attributes.ml[3,10+5]..[3,10+6]) 17 core_type (attributes.ml[3,10+16]..[3,10+20]) 18 attribute "foo" 19 [] 20 Ptyp_constr "unit" (attributes.ml[3,10+16]..[3,10+20]) 21 [] 22 expression (attributes.ml[3,10+30]..[3,10+32]) 23 attribute "foo" 24 [] 25 Pexp_construct "()" (attributes.ml[3,10+30]..[3,10+32]) 26 None 27 ] 28 structure_item (attributes.ml[6,60+0]..[8,97+7]) 29 Pstr_type Rec 30 [ 31 type_declaration "t" (attributes.ml[6,60+5]..[6,60+6]) (attributes.ml[6,60+0]..[8,97+7]) 32 attribute "foo" 33 [] 34 ptype_params = 35 [] 36 ptype_cstrs = 37 [] 38 ptype_kind = 39 Ptype_variant 40 [ 41 (attributes.ml[7,69+2]..[7,69+27]) 42 "Foo" (attributes.ml[7,69+4]..[7,69+7]) 43 attribute "foo" 44 [] 45 [ 46 core_type (attributes.ml[7,69+12]..[7,69+13]) 47 attribute "foo" 48 [] 49 Ptyp_constr "t" (attributes.ml[7,69+12]..[7,69+13]) 50 [] 51 ] 52 None 53 ] 54 ptype_private = Public 55 ptype_manifest = 56 None 57 ] 58 structure_item (attributes.ml[10,106+0]..[10,106+8]) 59 Pstr_attribute "foo" 60 [] 61 structure_item (attributes.ml[13,117+0]..[22,224+7]) 62 Pstr_module 63 "M" (attributes.ml[13,117+7]..[13,117+8]) 64 attribute "foo" 65 [] 66 module_expr (attributes.ml[13,117+11]..[21,214+3]) 67 attribute "foo" 68 [] 69 Pmod_structure 70 [ 71 structure_item (attributes.ml[14,135+2]..[18,190+11]) 72 Pstr_type Rec 73 [ 74 type_declaration "t" (attributes.ml[14,135+7]..[14,135+8]) (attributes.ml[14,135+2]..[18,190+11]) 75 attribute "foo" 76 [] 77 attribute "foo" 78 [] 79 ptype_params = 80 [] 81 ptype_cstrs = 82 [] 83 ptype_kind = 84 Ptype_record 85 [ 86 (attributes.ml[15,148+4]..[15,148+25]) 87 attribute "foo" 88 [] 89 Immutable 90 "l" (attributes.ml[15,148+4]..[15,148+5]) core_type (attributes.ml[15,148+9]..[15,148+10]) 91 attribute "foo" 92 [] 93 Ptyp_constr "t" (attributes.ml[15,148+9]..[15,148+10]) 94 [] 95 ] 96 ptype_private = Public 97 ptype_manifest = 98 None 99 ] 100 structure_item (attributes.ml[20,203+2]..[20,203+10]) 101 Pstr_attribute "foo" 102 [] 103 ] 104 structure_item (attributes.ml[24,233+0]..[32,357+7]) 105 Pstr_modtype "S" (attributes.ml[24,233+12]..[24,233+13]) 106 attribute "foo" 107 [] 108 module_type (attributes.ml[24,233+16]..[31,347+3]) 109 attribute "foo" 110 [] 111 Pmty_signature 112 [ 113 signature_item (attributes.ml[26,254+2]..[27,322+11]) 114 Psig_include 115 module_type (attributes.ml[26,254+10]..[26,254+61]) 116 attribute "foo" 117 [] 118 Pmty_with 119 module_type (attributes.ml[26,254+11]..[26,254+35]) 120 attribute "foo" 121 [] 122 Pmty_typeof 123 module_expr (attributes.ml[26,254+27]..[26,254+28]) 124 attribute "foo" 125 [] 126 Pmod_ident "M" (attributes.ml[26,254+27]..[26,254+28]) 127 [ 128 Pwith_typesubst 129 type_declaration "t" (attributes.ml[26,254+53]..[26,254+54]) (attributes.ml[26,254+48]..[26,254+61]) 130 ptype_params = 131 [] 132 ptype_cstrs = 133 [] 134 ptype_kind = 135 Ptype_abstract 136 ptype_private = Public 137 ptype_manifest = 138 Some 139 core_type (attributes.ml[26,254+58]..[26,254+61]) 140 Ptyp_constr "M.t" (attributes.ml[26,254+58]..[26,254+61]) 141 [] 142 ] 143 attribute "foo" 144 [] 145 signature_item (attributes.ml[29,335+2]..[29,335+10]) 146 Psig_attribute "foo" 147 [] 148 ] 149 structure_item (attributes.ml[34,366+0]..[34,366+8]) 150 Pstr_attribute "foo" 151 [] 152] 153 154