character*99a,b,c;do1;read*,a,b;do1 i=1,8;print'(aa1$)',trim(a),32-i/8*22;c=trim(b)//a;a=b;1 b=c;end