(map print(cond((eqv?(read)'K10)'(J10 K9 K11 L10))((eqv?(read)'H1)'(F1 G2 H3 J1 J4 K3 L1 L2))(else '(D5 E4 E6 F4 F7 G4 G5 G8 H3 H8 J4 J7 J8 K5 K9 L6 L9 M6 M9 N6 N8 O5 O8 P4 P7 Q3 Q6 R2 R5 S1 S4 T3))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).