sub mask {
        my($s, $m) = @_;
        [map { $$s[$_] } grep { 0 != ($m & (1<<$_)) } 0 .. @$s - 1];
}