#!/usr/bin/perl
$t=<>; chomp $t;	# first line specifies the type
while( <> )		# for each line in the rest of the file
{
   chomp;
   ($f,$op)=split(/,/);
   $fullname = "${t}_${f}";
   printf "$t %-20s( $t a, $t b ) { return (a${op}b); }\n", $fullname;
}
