(loop(format t"~a ~:[boo~;eat~]
"(set's(read-line))(find #\r s)))