is_pair : term -> bool
# is_pair `1,2,3`;; val it : bool = true # is_pair `[1;2;3]`;; val it : bool = false