start_up = proc ()

po: stream := stream$primary_output ()

stream$putl (po, "Hello World")

end start_up