{ Exemple simple avec de procedure }

PROC CARRE (X) [ PRINT X," au carre vaut ",X*X,"\n" ] :
FOR I=2 TO 5 [ CARRE(I) ] :
X=10 : CARRE(12) : PRINT X,"\n"