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