PROGRAM BUFFTEST(OUTPUT);
VAR I:INTEGER;
BEGIN
WRITELN('TESTING O/P OF >160 CHARACTERS');
FOR I:=1 TO 180 DO WRITE('A');
WRITELN;
END.