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