%integerfnspec jim(%integer a,b)
%externalroutine fred %alias "s#go"
%integer x
printstring("fred
")
x=jim(4,5)
write(x,5); newline

%end
%integerfn jim(%integer a,b)

%if a<b %then %result=1 %else %result=0
%end
%endoffile