$v=1;
$f=!($v);
print "**$f**\n";

##</code><code>##

$v=0;
$f=!($v);
print "**$f**\n";