Select Code to Download

sub qs { local ($x, @xs) = @_ and return qs(grep($_ < $x, @xs)), $x, q
+s(grep($_ >= $x, @xs)) or () }