#!/usr/bin/perl -nl
$t="int";
($f,$op)=split(/,/);
printf "${t} %-20s( ${t} a, $t b ) { return (a${op}b); }\n", "${t}_${f}";
