for i=1to 12
input""a$
?a$+" "+mid$("booeat",1+3*!mod(i,9)>4,3)next