character::c*239="aaaaaaaaabc"
do1 i=1,239,2
print'(a)a',trim(c)
j=99-ichar(c(i:))
c=trim(c)//"aaa  bc "(j*3:j*3+2)
1 c(:i+1)=""
end