#!/usr/local/bin/perl

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