main=interact$ \s->[cycle"01"!!div(g(take 8s)*g(drop 9s))(2^n)|n<-[7,6..0]] g=foldl(\a b->2*a+read[b])0