%externalinteger ei
%externalreal er
%externalintegerspec eis
%externalrealspec ers
%externalintegerfnspec eifs(%integer x)
%externalrealfnspec erfs
%externalintegerfn eif
  %result = eifs(0)+ei+eis
%end
%externalrealfn erf(%real r)
  %result = erfs+er+ers+r
%end