let rec ligne n s = if n > 0 then
  (print_string s;
    ligne (n-1) s)
;;

let () = ligne 5 "*";;