#!/usr/bin/perl
use strict;
$| = 1;
my $email = <>;
chomp($email);
print "1\n";