use Data::Dumper;
    $Data::Dumper::Indent = 0;
    print Dumper( randomly_permuted_subset_of_range(5, 10) );
    print Dumper( randomly_permuted_subset_of_range(11, 10) );
    print Dumper( randomly_permuted_subset_of_range(5, 2**48) );