diff --git a/p/hello_world.pl1 b/p/hello_world.pl1
index b8cfd575..fb855638 100644
--- a/p/hello_world.pl1
+++ b/p/hello_world.pl1
@@ -1,10 +1,4 @@
-HELLO:   PROCEDURE OPTIONS (MAIN);
+World: Procedure options(main);
+          Put List( 'Hello world' );
 
-             /* A PROGRAM TO OUTPUT HELLO WORLD */
-             FLAG = 0;
-
-LOOP:     DO WHILE (FLAG = 0);        
-             PUT SKIP DATA('HELLO WORLD!');
-          END LOOP;
-
-END HELLO;
+          End World;