<>;print"@{[sort{$a-$b}glob<>]}"=~s/\d+ /$'-$&.$"/ger=~/^([1-9]\d* )\1*\d+$/?YES:NO