(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)))