####################################################################
##                               MAIN
####################################################################

my $contiguous_characters_length = <>;

chomp $contiguous_characters_length;

my $sequence_1 = 'qwertyuiop';

for (my $i = 0; $i < length $sequence_1 ; $i++) {

  my $results = substr ($sequence_1, $i-($contiguous_characters_length-1), $contiguous_characters_length);

  print "$results\n";

}

exit;