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