(princ(if(eq(read-char)#\>)"Hello World!"'ABCDEFGHIJKLMNOPQRSTUVWXYZ))