RosettaCodeData/Task/Write-to-Windows-event-log/Standard-ML/write-to-windows-event-log-2.ml

OS.Process.system  "EventCreate /t WARNING /id 458 /l APPLICATION /so SomeSource /d \"Settastring\"" ;