sub f{$=&&do{local($=,@0,@1)=$=-1;push@{$_>>$=&1},$_ for@_;@0*@1?1<<$=|(sort{$a-$b}f(@0),f(@1))[0]:&f}}<>;$/=$";print f<>