-- λf g x y z w. f w (g x y z)
let flip  := λf x y. f y x
    comp  := λf g x. f (g x)
    const := λx y. x
    id    := (flip const) comp
 in id