while(a:?read\-line(?-,?-,~))#~do printf(?t,"~a ~:[eat~;boo~]
",a,is(ssubst("","r",a)=a));