<>=~('(.*) 'x4);@a=sort{$b-$a}map{($4)x($_/$4),$_%$4}glob<>;$s+=$a[$_]for$2..@a;print$s>$3*$'?No:Yes