main=interact$last.(?)[].zip[0..].concat.lines
m?((x,d):r)=[show x++',':show y++' ':t|w@(y,e)<-r,elem(y-x)[1,6]>elem[d,e]m,t<-([d,e]:[e,d]:m)?filter(/=w)r]
_?_=[""]