%externallongrealfn Fraction %alias "3L_MATHS_FRACTION"(%longreal N)
   %result = N - Trunc(N)
%end
%endoffile