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;;