sub f{
	my($a,$b)=@_;
	"@_"=~/\.|e/?0:$a*$b?f($a-1,$b/2)|f($a/2,$b-1):1
}
print f(glob<>)?Yes:No