let
progress fmt =
if
!quiet
then
Printf
.ifprintf stderr fmt
else
Printf
.fprintf stderr (fmt^^
"%!"
)