fun a: A => fun f: A -> A =>
	(fun x: A => f (f (f a))) a