eval'$/=z;$_[$_]=++$%for<>=~/\d+/g;($_[E],E)=(E,$_[E])until($a=abs$_[E]-E)-1&&$a-4;print@_~~@{[16,1..15]}?Yes:No'=~s/E/\$_[0]/gr