#!/usr/bin/perl -w
$l=1;
while ($f=<STDIN>)
 {chomp($f);
  print "$f$l\n";
  $l++;
 }
