let pr fmt = Format.printf fmt
let epr fmt = Format.eprintf fmt
let pf ppf fmt = Format.fprintf ppf fmt
let kstrf k fmt = Format.kasprintf k fmt