stuff that behaves differently in the qast-sink-1 branch

stuff.p6

my sub expand($s) {
    return $s.list if $s ~~ Iterable|Positional;
    gather for $s.comb(/ (\w) '..' (\w) | . /, :match) {
        if .[0] {
            take $_ for ~.[0] .. ~.[1];
        } else {
            take ~$_;
        }
    }
}
say expand("A..BZ-").perl;
say expand("a..c_").perl;