let numero = read_int() let rec recursao numero espacos= if numero > 1 then recursao (numero/2) (espacos) ; if espacos > 1 then print_string(""); 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 ("*2"); print_string("\n"); if numero > 1 then recursao (numero/2) (espacos+numero);; recursao numero 1 ;;