import List main=getContents>>=mapM(print.snd).sort.map((gcd 64#).read).lines f#n=(f n+(64-2*n)*div(f n)n,n)