let foo n =
  let s = String.make n '*' in
  let rec bar x =
    if x > n then ()
    else (
      print_string ((String.sub s 0 (n-(abs(x))))^"\n");
      bar (x + 1);
    )
  in
    bar (0 - n)
;;

foo 4;;