begin routine test routine static proc printstring("Greetings!"); newline end printstring("Hello world"); newline static proc end selectoutput(0) test newpage endofprogram