(princ(case(read-char)(#\2"x=2
y=4")(#\x"w=5
x=100
y=-20
z=-30")(t"a=1
b=7
c=19
d=32
e=87
f=54
g=34
h=19
i=2
j=75
k=25
l=46
m=63
n=23
o=18")))