let () =
  let f x =
    if x = 0 then print_endline "-"
    else
      begin
        for i = 1 to x do
          print_string "*"
        done;
        print_newline ()
      end
  in
  let rec read () =
    let n = read_int () in
    if n = 0 then ()
    else
      begin
        let a = Array.make 10 0 in
        for i = 1 to n do
          let m = read_int () in
          a.(m) <- a.(m)+1
        done;
        Array.iter f a;
        read ()
      end
  in read ()
;;