#(print(case(read-char)((#\3)"3
4
5")((#\0)(format"~{~a
~}"(iota 43)))))