let
number fmt i =
Format
.fprintf fmt
"%d"
i