(%)=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