(%)=notElem s a n i b|i==34=[[]]|i%a=[i+1,i+7]>>=v|0<1=s a n(i+1)b where v k=[z:w|z<-m,w<-t]where d=b!!i+b!!k;m=[(i,k)|k<35,k%a,d%n];t=s(k:a)(d:n)(i+1)b g k=show$k-k`div`7 h(x,y)=g x++',':g y u c=2^(fromEnum c-48) main=interact$unwords.map h.head.s[6,13..34][]0.map u
Note that non-ascii characters in the above source code will be escaped (such as \x9f).