let add = (fun x -> x+1) in (add) 1