(import (rnrs) (ironscheme clr) ) (define msgbox (pinvoke-call user32 MessageBox int (intptr string string int))) (msgbox 0 "Hello, Win32 API(IronScheme) World!" "Hello, World!" 0 )