(while 1((fn[%](prn%(if(some #(=\r%)(str%))'eat'boo)))(read)))