%BEGIN
%REALSLONG
%INTEGER I,N
%REALARRAY A(1:5)
%CONSTSTRING(20) S='IMP CALLS ALGOL'
%EXTERNALROUTINESPEC CALGOL(%LONGREALARRAYNAME C,%STRINGNAME S,    %C
%INTEGERFN F,%INTEGERNAME N)
%EXTERNALINTEGERFNSPEC G(%INTEGERNAME N)
N=3
CALGOL(A,S,G,N)
%CYCLE I=1,1,5
PRINT(A(I),2,2);SPACES(2)
NEWLINE
%REPEAT
%ENDOFPROGRAM