lines = STDIN.read.split("\n")
lines = lines.map(&:to_i)
lines.pop

while lines.count > 0 do
    loopCount = lines[0].to_i
    lines.delete_at(0)


    dataSet = lines.slice(0..loopCount-1)


    dataCount = Hash.new(0)
    dataSet.each_with_index do |v,i|
        dataCount[v] += 1
        lines.delete_at(0)
    end

    for i in 0..9 do
        if(dataCount[i] > 0)
            puts "*" * dataCount[i]
        else
            puts "-"
        end
    end
end






