character*9c;read*;do1;read*,c;1 if(len_trim(c)+9*scan(c,"POWDY")==6)print'(a6)',c;end