Scanf.scanf "%d" (fun n ->
    let c = Array.init 9 (fun _ -> Scanf.scanf " %d" (fun d -> d)) in
    for i = 8 downto 0 do
        print_string @@ String.make c.(i) (char_of_int (49 + i))
    done;
    print_newline ()
)