<>=~$";$k=$';map{$c--if$d[$_];($_,$d[$_])=$d[$_],$c++while$d[$_]}1..(@d=($/=$",<>));print$k>=$c&$k+$c+1?YES:NO