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