var s:string="aaaaaaaaabc";i:word;begin repeat writeln("":i,s);s:=copy(s,3)+trim(copy("aaaa bc",298-ord(s[1])*3,3));i:=i+2until i>238end.