DEFINE PROCEDURE ''HELLO-WORLD'' [N]:
BLOCK 0: BEGIN
     PRINT['Hello World']
BLOCK 0: END.
HELLO-WORLD[1];