-- λ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