Select Code to Download

package MarkovDiddly;

...

sub key {my $l=shift();my @arr = @_;return join(" ",@arr[0..$l - 2]);}
+            
1;

package main;

...
print "mixture (6/2): ",join(",",@tune),"\n";
exit;