#!usr/bin/perl -w
sub Harmonics ($$) {
for$i(1..$_[1]){for$j(1..$i){$y{sprintf"%.3f",$_[0]*$i/$j}=1}}sort{$a<=>$b}keys%y
}
print join( "\n", Harmonics( 100, 6 ) );