# let f (x : int -> int) = ignore x;;
Characters 32-33:
  let f (x : int -> int) = ignore x;;
                                  ^
Warning F: this function application is partial,
maybe some arguments are missing.
val f : (int -> int) -> unit = <fun>