import Control.Monad (replicateM, unless)
import Control.Applicative (<$>)

solver :: Int -> [Int] -> [String]
solver 10 _  = []
solver n xs =
  let y = length (filter ( == n) xs)
  in
    if y == 0
      then "-" : solver (n+1) xs
    else
      concat (replicate y "*") : solver (n+1) xs

main :: IO()
main = do
  n <- (read :: String -> Int) <$> getLine
  unless (n == 0) $ do
    inputs <- map (read :: String -> Int) <$> replicateM n getLine
    mapM_ putStrLn $ solver 0 inputs
    main