uncurry : ('a -> 'b -> 'c) -> ('a * 'b) -> 'c
uncurry f (x,y) = f x y
- fun add x y = x + y > val add = fn : int -> int -> int - uncurry add (3,4); > val it = 7 : int