link graphics
procedure main(arglist)
WOpen("size=300, 300", "fg=blue", "bg=light gray")
WDone()
end