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