(format t"~{~10@{~:[ ~;#~]~} ~}"(map'list(lambda(x)(eq x #\1))(format()"~150B"(case(search"#"(read-line))(1 537399949)(8 #36R12WLQQWEM4S5M4Z7CU)(t #36R4DO2O7AUB874)))))