sub f{(*v,$m)=@_;$v&&[$v-=($t=$v-($-=$v-int$_/$m))?$t+!++$a[$_-$t*$m]:1]}($n,$X,$Y,$Z)=glob<>;++$a[$_/1e3]for glob<>;map{f(Z,10)||f(Y,5)||f(X,1)||exit!print'No'while$a[$_]--}sort{1}0..1e6;print'Yes'