(use srfi-42)(let*((n(read))(f(lambda(x)(eval`(print(string-ec(: i 1(ash 2(-,n 1)))(ref"ACB"(modulo(*(-(modulo,n 4)1),x)3))))0))))(f'(logand(- i 1)i))(f'(+(logior(- i 1)i)1)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).