module Main where
import ProgressBar
import System.IO
import Control.Concurrent

main = do putStr "starting (fake) stuff"
          let n = 5
          r <- mkProgress stdout
          sequence_ [ pr_inc r >> threadDelay 10000
                      | n <- [1..n] ]
          pr_done r
          putStrLn "[Done]"