Select Code to Download

## pseudocode
my @list = shuffle get_tracks;
my @list1 = @list[0..@list/2-1];
...
    shuffle @list1;
    shuffle @list2;
}

## pseudocode
my @style_levels = (
    [ qw/noise/               ],
...
    my $next_style = ${ $style_levels[$next_index] }[ rand @{$style_le
+vels[$next_index]} ];  ## choose a style of this level
    return get_song { style => $next_style };     ## pick some song of
+ this style
}