#!/usr/bin/perl -w
use v5.42;
use strict;
my $noty = '.-.-..-.-.-.-...-.--.-' x 1_000;
my @delky = qw(1 4 2 3 3 2 1 2 2 2 1 3 3 2 2 1 3 1 1 1 2 4 1 2 2 1);
for my $iter (1 .. 36) {
for my ($i, $l) (indexed @delky) {
$noty =~ s/^.{$l}//;
say join(' ', $iter, ('A' .. 'Z')[$i], $&);
}
}