#!/usr/bin/perl

$burn=$ARGV[0];
unless ($burn) {$burn=1000;}
$_=<stdin>;
print;
for ($i=0;$i<$burn;$i++) { $_=<stdin>; }
while (<stdin>) { print; }
exit (0);