#!/usr/bin/perl

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

$|=1;
$c = ord('A'); $r = 1;
while (1) {
  print chr($c) x $r;
  print "\n";
  $c = $c + 1;
  if ($c > ord('Z')) { $c = ord('A'); $r += 1; }
}