(= a(len:readline))(prn:case a 3"011
011"5"01110
00101
00010"9"010001100
100110000
111100010
011111100")