(if(eq(peek-char)#\A)(loop(princ(read-char)))(princ"No. Everyone does."))