#!/usr/bin/perl

while($l = <>)
{
  chomp($l);
  if($l =~ /^c/)
  {
    if(substr($l,0,2) eq "c ")
    {
      $l = "c0".substr($l,2);
    }
    if($l =~ /^c(\d+)\s+([0-9-]+)$/)
    {
      $cname = $1;
      $address = $2;
      if($address<0)
      {
	$address+=1024;
      }
      print "CnameAddress[$cname]\t$address\n";
    }
  }
}