%externallongrealfnspec cputime
%integerfn randomize(%integer range)
%longreal res,last
   res = cputime
   last = fracpt(res*100000)
   last = fracpt(last*100000)
   %result = intpt(last * range + 1)
%end
%externalintegerfn rand int
%result = randomize(20)
%end
%endoffile