main=interact$g(<'@').head.([]?).zip[0..].g(>'*');t?((i,u):y)=[shows[i,j]" "++r|q@(j,v)<-y,j-i`elem`6:[1|mod i 6<5],all(/=[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).