
uses
  SysUtils;
  
function SquareName(const i: integer): string;
begin
  result := Concat(
    Chr(i mod 8 + Ord('A')),
    Chr(i div 8 + Ord('1'))
  );
end;

var
  i: integer;
  
begin
  for i := 0 to 63 do
  begin
    if i mod 8 <> 0 then
      Write(' ');
    Write('''', SquareName(i), '''');
    if i < 63 then
      Write(',');
    if i mod 8 = 7 then
      WriteLn;
  end;
end.
