#!/usr/bin/perl

use strict;
use warnings;

sub huge
{
my $num = <>;
if ($num > 1000000)
{
  print "1";
}
else{
  print "0";
}
}
&huge