#!/usr/bin/perl -w

$max_number_of_strings = 6;
$min_number_of_strings = 2;

@strings_number = $min_number_of_strings .. $max_number_of_strings;

$possible_number_of_notes = 5;    # super_guitar_player  ROSENDO MERCADO or PRINCE...

for $s (@strings_number){
    $sum += $s * $possible_number_of_notes;    
}

print "TOTAL MAXIMUM NUMBER OF ACHORDS OF A SPANISH GUITAR = $sum  \n";

exit 1;