import Graphics.UI.FLTK
import System.Exit

quit = putStrLn "quit" >> exitWith ExitSuccess

main = do w <- newWindow 0 0 300 60 [label := "progress" ]
	  p <- newProgress 0 0 300 30 [minValue := 0, maxValue := 50]
	  newButton 0 30 150 30 [label := "Increase", action := const (set p [value :=> (+1)])]
	  newButton 150 30 150 30 [label := "Quit", action := const quit]
	  run w