print /^\s*\@MAC\((\w+)\s*,\s*(\w+)\s*,\s*(\w+)\s*,\s*(\d+)\s*\)\s*;\s*$/
	? "$1 = (" . join('+',map "($2$_+$3$_)", 0..$4-1) . ");\n"
	: $_
    while (<>);