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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page