$n = <>; if($n == 1) { print "0\n"; } else { print "1\n"; }