main=interact$f.map words.lines
f l=unlines[do x<-0%l;max"-"[c|[a,b,c:_]<-l,x==a,y==b]|y<-1%l]
n%l|g<-foldr.(.read.(!!n))=map show[g min 9l..g max 0l]