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