let
failwithf fmt =
Printf
.ksprintf failwith fmt