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

procedure form(arg1,op,arg2)
   return [op,fix(arg1),fix(arg2)]
end