#!/usr/bin/perl
use strict; 
use warnings;

#
#       test the magic strings
#

  my $col = 'p';
  my $limit = 120;
  for (-5..$limit) {
    $col++;
    print "$col,";
  }