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 1 then recursao (numero/2) (espacos+numero);; recursao numero 1 ;;