(def chicken-korma (a b c d e)

(list a b c d e))

(examples-for curry

("zero-params assumes nil initial parameter"
 (let ck0 (curry chicken-korma)
   (ck0 1 2 3 4 5))
 (1 2 3 4 5))

("one param"
 (let ck0 (curry chicken-korma 'x)
   (ck0 1 2 3 4))
 (x 1 2 3 4))

("nestable"
 (let ck0 (curry chicken-korma 'x)
   ((curry ck0 'y) 1 2 3))
 (x y 1 2 3))

("two params"
 (let ck0 (curry chicken-korma 'x 'y)
   (ck0 1 2 3))
 (x y 1 2 3))

("three params ignores second and third params"
 (let ck0 (curry chicken-korma 'x 'y 'z)
   (ck0 1 2))
 (x y z 1 2)))