# let printf (brick_verb : int) (verb : int) (message : (unit, unit, string, unit) format4) : unit =
    Printf.ksprintf
      (fun s ->
       if brick_verb >= verb
       then Printf.printf "%s" s else ())
      message
;;
            val printf : int -> int -> (unit, unit, string, unit) format4 -> unit = <fun>
# printf 5 2 "hi %s" "name";;
Characters 0-6:
  printf 5 2 "hi %s" "name";;
  ^^^^^^
Error: This function has type
         int -> int -> (unit, unit, string, unit) format4 -> unit
       It is applied to too many arguments; maybe you forgot a `;'.