main=interact$g(<'@').head.([]?).zip[0..].g(>'*');t?((i,u):y)=[shows[i,j]" "++r|q@(j,v)<-y,(j-i`elem`6:[1|gcd 6j<6])>elem[u,v]t,r<-([u,v]:[v,u]:t)?g(/=q)y];_?_=[""];g=filter
Note that non-ascii characters in the above source code will be escaped (such as \x9f).