#!/usr/bin/perl -w

use strict;

my $lines = shift;

print "iter\n";
for(my $i=0;$i<$lines;$i++)
{
    print "$i\n";
}