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