4.3BSD/usr/contrib/icon/book/19/symop.icn

procedure symop(arg1,op,arg2)
   return op || "(" || arg1 || "," || arg2 || ")"
end