sub Mix {
my@a;@_=grep{@$_?push@a,shift@$_:0}@_ while@_;@a
}

##</code><code>##

sub MixS {
my@a;for(my$i;@_;++$i){@_=grep{$i<@$_&&push@a,$$_[$i]}@_}@a
}