sub Harmonics ($$) {
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_
+12
for$a(1..pop){$_{sprintf'%.3f',$_[0]*$a/$_}++for 1..$a}sort{$a-$b}keys
+%_
}
[download]