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