RosettaCodeData/Task/Hello-world-Graphical/I/hello-world-graphical-2.i

link graphics
procedure main()
   WOpen("size=100,20") | stop("No window")
   WWrites("Goodbye, World!")
   WDone()
end