#!/usr/bin/perl 
#  $HeadURL$ $LastChangedRevision$
use strict;
use warnings;

my($progname) = (reverse split /\//, $0)[0];
if ($#ARGV+1 != 1 or $ARGV[0] !~ /^\d+$/) {
    die "Usage: $progname <integer>\n";
}
sleep $ARGV[0];
printf "%d\n", $ARGV[0];