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