<>;$_=<>x2,print/0/*/2/>/([02])[^02]*\1/?Yes:No,$/while<>