let sbprintf fmt = ksbprintf (fun x -> x) fmt