x,y=[8,9].zip *r=$<.map{|a|eval"[%s,%s,?%s]"%a.split}
s=(y.min..z=y.max).map{'-'*(x.max+1-y=x.min)}
r.map{|e,f,s[f+~z][e-y]|}
puts s