progress bar in haskell