x,y=[8,9].zip *r=$<.map{|$_|eval"[%s,%s,%p]"%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