let of_int (i:int) = of_int64 (Int64.of_int i)