let
rec
pp_repeat f (n, s) =
if
n > 0
then
(pp_print_string f s; pp_repeat f (n - 1, s))