#!/usr/bin/perl -w
use strict;

my $n= '009';
$n++;
print $n, $/;
print 0+$n, $/;
print $n, $/;
$n++;
print $n, $/;
$n= join '', (1..9,0)x7;
$n++;
print $n, $/;
print 0+$n, $/;
print $n, $/;
my $p= $n;
$n++;
print $n, $/;
print $n-$p, $/;