val zero : int * int * intval plus : (int * int * int) -> (int * int * int) -> int * int * intval le : ('a * 'b * 'c) -> ('a * 'b * 'c) -> boolval eq : ('a * 'b * 'c) -> ('a * 'b * 'c) -> boolval lt : ('a * 'b * 'c) -> ('a * 'b * 'c) -> boolval max : int * int * intval min : int * int * intval to_string : (int * int * int) -> string