// "./cfa-cpp -cn esskaykay.c"

// forall (type A, type B, type C) C ess (C (*f) (A,B), B (*g) (A), A x) { return f(x,g(x)); }
forall (type A, type B, type C) C ess (C (*(*f)(A))(B), B (*g)(A), A x) { return f(x)(g(x)); }

// forall (type A, type B) A kay (A a, B b) { return a; }
forall (type A, type B) A (*kay(A a))(B b);

// Now is the following function well-typed, or not?

forall (type A) A esskaykay (A x) { ess (kay, kay, x); }