Am_Ops.Int_as

struct

    let ( + ) = Pervasives.( + )

    let ( - ) = Pervasives.( - )

    let ( * ) = Pervasives.( * )

    let ( / ) = Pervasives.( / )

    let ( ~- ) = Pervasives.( ~- )

  end