let failwith fmt = Printf.ksprintf failwith fmt