open Printf

    let n, c =
      print_string "n:";
      let n = read_int () in
      print_string "c:";
      let c = read_int () in
      n, c

    let rec estrelinhas  n c =
      if n=1 then begin
        for i = 0 to c do
          Printf.printf ("  ");
          Printf.printf ("*");
        done
      end
      else
        estrelinhas  (n/2) (c)
    let () =
      Printf.printf ("\n");
      estrelinhas  n c;

      for k = 0 to c do
        Printf.printf (" ");
      done;

      for p = 0 to n-1 do
        Printf.printf ("* ");
      done;

      estrelinhas n c;

      Printf.printf ("\n ")