- open Printf
- let nume =
- let nume = read_int () in
- nume
- let rec desenha nume var =
- for i = 0 to var-1 do
- printf " ";
- done;
- for i = 0 to nume-1 do
- printf("* ");
- done
- let rec chama nume var =
- if nume > 1 then
- chama (nume/2) var;
- if var>0 then
- print_string("");
- desenha nume var;
- print_string("2");
- printf "\n";
- if nume > 1 then
- chama (nume/2) (var+nume);;
- chama nume 0;;