#!/usr/bin/perl

while($l = <>)
{
  chomp($l);
  if($l =~ /^(.*) (.*)$/)
  {
    $a = $1;
    $b = uc($2);
    print "Tromle[".$a."]\t00000".$b."\n";
  }
}