@@ -216,6 +216,12 @@ sum = foldl (+) 0
216216prod : Num a => List a -> a
217217prod = foldl (*) 1
218218
219+curry : ((a, b) -> c) -> a -> b -> c
220+curry f a b = f (a, b)
221+
222+uncurry : (a -> b -> c) -> (a, b) -> c
223+uncurry f (a, b) = f a b
224+
219225---- some basic io
220226
221227partial