let numero  =
  (* print_string "numero:";*)
  print_newline();
  let numero = read_int () in
  numero

let rec recursao numero espacos=	
  
  if numero > 1 then 	  
    recursao (numero/2) (espacos) ; 
  print_string (" \n");

  let i= ref 1 in
  while !i<espacos do 
    print_string (" ");
    incr i;	
  done;
  
  let i= ref 1 in
  while !i<numero do 
    print_string  ("* ");
    incr i;
  done;
  
  print_string  ("*");
  if numero > 1 then	
    recursao (numero/2) (espacos+numero);;




recursao numero 0 ;;
print_string  "\n\n";