(use srfi-1)(let((l(read))(c(read)))(for-each display(append-map(lambda(y)(append-map(lambda(x)(list(if(odd? x)1 0)(if(=(modulo(+ x(if(odd? y)1 0))c)0)"\n"" ")))(iota c(if(odd? y)0 1))))(iota l))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).