(= a(readb))(if(is a 65)(for i 65  90(pr:coerce i'char))(pr:if(is a 72)"Helloworld"(newstring 21 #\q)))