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]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page