use strict;
use MIDI::Simple 0.7;

new_score;
patch_change 1, 41;  # Patch 41 = organ of some sort
noop 'c1', 'f', 'o2'; # setup
my $normal = 'en';
my $fast = 'sn';
foreach my $c (split '', '. - .. - ..- ... - .') {
    if($c eq ' ') { # interword pause
	r $normal;
    } elsif($c eq '.') { # dit
	n $fast;
	r $fast;
    } elsif($c eq '-') { # daah
	n $normal;
	r $fast;
    } else {
	print "What's \"$c\"? Skipping\n";
    }
}
write_score("morse1.midi");
exit;