#!/usr/bin/perl

use strict;
use warnings;

my ($p, $q) = split / /, <>;

my ($p1, $p2);
$p1 = (1 - $p) * $q;
$p2 = (1 - $q) * $p * $q;

if($p1 < $p2) {
	print "YES\n";
} else {
	print "NO\n";
}

exit;