bla-2009.10.13: src/bla.hs

import System.Environment
import Prelude hiding ((-))
import Control.Monad hiding (join)
import System
import System.Posix (sleep)
import Data.Maybe
import Control.Applicative
import Data.List
import Control.Arrow ((>>>))

main :: IO ()
main = forever - do
  env <- getEnvironment

  let i = lookup "i" >>> fromMaybe "1" >>> read - env

  cmd <- intercalate " " <$> getArgs
  
  br
  puts - "* " ++ cmd
  system cmd
  br

  puts - " ... "

  sleep i

  return ()

  where
    puts = putStrLn
    br = puts ""
    (-) = ($)
    infixr 0 -