fun (z : A) => fun (f : A -> A) => f (f (f z))