let
failwithf fmt = ksprintf failwith fmt