RosettaCodeData/Task/Loops-For/OCaml/loops-for.ml

for i = 1 to 5 do
  for j = 1 to i do
    print_string "*"
  done;
  print_newline ()
done