;;; Hello World in pop-11 define hello(); vars i; 0 -> i; until i > 0 do "Hello World" => enduntil; enddefine; : hello()