#!/usr/bin/env perl use strict; use warnings; use bigint; my $n = <>; if($n % 2 == 0) { print "YES\n"; exit; } else { for(my $i = 2; $i < $n / 2; $i++) { if($n % $i == 0) { print "YES\n"; exit; } } } print "NO\n"; exit;