#!/usr/bin/perl

$thin=$ARGV[0];
unless ($thin) {$thin=10;}
$count=0;
while (<stdin>)
  {
    if (($count % $thin) == 0) {print;}
    $count=$count+1;
  }
exit (0);