options in cabal:
  ghc-options:    -O2 -threaded -rtsopts -with-rtsopts -N

import Control.Concurrent
import Data.Bits
import Graphics.Win32
import System.IO
import System.Win32

messageBoxThread :: IO ()
messageBoxThread = do
  messageBox nullPtr "Test" "Test" (mB_YESNO .|. mB_ICONQUESTION .|. mB_APPLMODAL)
  return ()

printLoop :: IO ()
printLoop = do
  putStr "."
  hFlush stdout
  sleep 100
  printLoop

main :: IO ()
main = do
  forkIO messageBoxThread
  printLoop