#!/usr/bin/perl

$lineno=0;
while($l = <>)
{
  chomp($l);
  $lineno++;
# print "$lineno $l\n";
  if($l =~ /([lL]\d+):/)
  {
    $label = $1;
    print "$label def\n";
  }
  if($l =~ /([lL]\d+)[^0-9:]/)
  {
    $label = $1;
    print "$label ref\n";
  }
}