(format t"~{~10@{~:[ ~;#~]~}
~}"(map'list(lambda(x)(eq x #\1))(format()"~150B"(case(search"#"(read-line))(1 537399949)(8 #36R12WLQQWEM4S5M4Z7CU)(t #36R4DO2O7AUB874)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).