method expr : expr -> expr =
function
| ExNil _x -> let _x = o#loc _x in ExNil _x
| ExId (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#ident _x_i1 in ExId (_x, _x_i1)
| ExAcc (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExAcc (_x, _x_i1, _x_i2)
| ExAnt (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExAnt (_x, _x_i1)
| ExApp (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExApp (_x, _x_i1, _x_i2)
| ExAre (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExAre (_x, _x_i1, _x_i2)
| ExArr (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in ExArr (_x, _x_i1)
| ExSem (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExSem (_x, _x_i1, _x_i2)
| ExAsf _x -> let _x = o#loc _x in ExAsf _x
| ExAsr (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in ExAsr (_x, _x_i1)
| ExAss (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExAss (_x, _x_i1, _x_i2)
| ExChr (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExChr (_x, _x_i1)
| ExCoe (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#ctyp _x_i2 in
let _x_i3 = o#ctyp _x_i3
in ExCoe (_x, _x_i1, _x_i2, _x_i3)
| ExFlo (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExFlo (_x, _x_i1)
| ExFor (_x, _x_i1, _x_i2, _x_i3, _x_i4, _x_i5) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in
let _x_i2 = o#expr _x_i2 in
let _x_i3 = o#expr _x_i3 in
let _x_i4 = o#direction_flag _x_i4 in
let _x_i5 = o#expr _x_i5
in ExFor (_x, _x_i1, _x_i2, _x_i3, _x_i4, _x_i5)
| ExFun (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#match_case _x_i1 in ExFun (_x, _x_i1)
| ExIfe (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in
let _x_i3 = o#expr _x_i3
in ExIfe (_x, _x_i1, _x_i2, _x_i3)
| ExInt (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExInt (_x, _x_i1)
| ExInt32 (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExInt32 (_x, _x_i1)
| ExInt64 (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExInt64 (_x, _x_i1)
| ExNativeInt (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExNativeInt (_x, _x_i1)
| ExLab (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in
let _x_i2 = o#expr _x_i2 in ExLab (_x, _x_i1, _x_i2)
| ExLaz (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in ExLaz (_x, _x_i1)
| ExLet (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#rec_flag _x_i1 in
let _x_i2 = o#binding _x_i2 in
let _x_i3 = o#expr _x_i3
in ExLet (_x, _x_i1, _x_i2, _x_i3)
| ExLmd (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in
let _x_i2 = o#module_expr _x_i2 in
let _x_i3 = o#expr _x_i3
in ExLmd (_x, _x_i1, _x_i2, _x_i3)
| ExMat (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#match_case _x_i2
in ExMat (_x, _x_i1, _x_i2)
| ExNew (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#ident _x_i1 in ExNew (_x, _x_i1)
| ExObj (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#patt _x_i1 in
let _x_i2 = o#class_str_item _x_i2
in ExObj (_x, _x_i1, _x_i2)
| ExOlb (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in
let _x_i2 = o#expr _x_i2 in ExOlb (_x, _x_i1, _x_i2)
| ExOvr (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#rec_binding _x_i1 in ExOvr (_x, _x_i1)
| ExRec (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#rec_binding _x_i1 in
let _x_i2 = o#expr _x_i2 in ExRec (_x, _x_i1, _x_i2)
| ExSeq (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in ExSeq (_x, _x_i1)
| ExSnd (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#string _x_i2 in ExSnd (_x, _x_i1, _x_i2)
| ExSte (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExSte (_x, _x_i1, _x_i2)
| ExStr (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExStr (_x, _x_i1)
| ExTry (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#match_case _x_i2
in ExTry (_x, _x_i1, _x_i2)
| ExTup (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in ExTup (_x, _x_i1)
| ExCom (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExCom (_x, _x_i1, _x_i2)
| ExTyc (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#ctyp _x_i2 in ExTyc (_x, _x_i1, _x_i2)
| ExVrn (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in ExVrn (_x, _x_i1)
| ExWhi (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#expr _x_i1 in
let _x_i2 = o#expr _x_i2 in ExWhi (_x, _x_i1, _x_i2)
| ExOpI (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#ident _x_i1 in
let _x_i2 = o#expr _x_i2 in ExOpI (_x, _x_i1, _x_i2)
| ExFUN (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in
let _x_i2 = o#expr _x_i2 in ExFUN (_x, _x_i1, _x_i2)
| ExPkg (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#module_expr _x_i1 in ExPkg (_x, _x_i1)