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 "