#!/usr/bin/perl

if ($ARGV[0]=~/^\+/) {
    $arg = shift(@ARGV);
    $arg =~ s/.//;
    @lines=<>;
    $start = $arg-1; $stop = $#lines;
    for $i ($start..$stop) { print $lines[$i]; }
    exit(0);
}
if ($ARGV[0]=~/^\-/) {
    $arg = shift(@ARGV);
    $arg =~ s/.//;
    @lines=<>;
    $start = $#lines-$arg+1; $stop = $#lines;
    for $i ($start..$stop) { print $lines[$i]; }
    exit(0);
}

@lines=<>;
$start = $#lines-10+1; $stop = $#lines;
for $i ($start..$stop) { print $lines[$i]; }
exit(0);
