#!/usr/bin/perl -w

use strict;

while (<DATA>)
{
    print "$_";
}

exit;


__DATA__
a1
a2
a3
a4
a5
a6
a7
a8
a9
a0