module Main where

import HTk    

main :: IO ()
main =
  do htk <- initHTk [text "Main Window"]

     b <- newButton htk [text " Quit ", size(10, 2)]
     pack b []

     press <- clicked b
  
     spawnEvent (press >>> (putStrLn "Exiting!" >> destroy htk))

     finishHTk