#!/usr/bin/perl
my $rounds = shift;
foreach (0 .. $rounds) {print "$_\n";}