— Generate Semitones

#!/bin/perl
my $m = 2 ** (1/12);
foreach my $s (0..12) {
    print int(0.5 + 1000 * $m ** $s-1000), "\n";
}

prints: 
semitone - fine
0  - 0 
1  - 59 
2  - 122 
3  - 189 
4  - 260 
5  - 335 
6  - 414 
7  - 498 
8  - 587 
9  - 682 
10 - 782 
11 - 888 
12 - 1000

gist