gistfile1.txt

    my atomicint $spawn-limit = 8;
    sub spawn(&c, |args) {
        # dd ⚛$spawn-limit;
        ⚛$spawn-limit > 0
            ?? ($spawn-limit⚛-- ;start { LEAVE $spawn-limit⚛++; c(|args) })
            !! c(|args)
    }

    sub collect(*@things) {
       slip @things.map: -> $thing { $thing ~~ Promise ?? await $thing !! $thing }
    }

    multi quicksort([]) { () }
    multi quicksort([$pivot, *@rest]) {
        my @before = @rest.grep(* before $pivot);
        my @after  = @rest.grep(* !before $pivot);

        flat collect spawn(&?ROUTINE.dispatcher, @before), $pivot, spawn(&?ROUTINE.dispatcher, @after)
    }

    my @a = ('a'..'z').roll(12).join xx 60000;
    # dd @a;
    quicksort @a;