(do()((eq(set'c(read-char))#\I))(princ c))(princ"No. Everyone does.")