RosettaCodeData/Task/Hello-world-Graphical/TXR/hello-world-graphical.txr

(with-dyn-lib "user32.dll"
  (deffi messagebox "MessageBoxW" int (cptr wstr wstr uint)))

(messagebox cptr-null "Hello" "World" 0) ;; 0 is MB_OK