type ipair = Pair (int, int)

let a_pair_of_int : ipair = Pair<>(0, 1)