bla-2009.10.20: src/bla.hs

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

main :: IO ()
main = do
  installHandler sigINT Default Nothing

  cmd <- intercalate " " <$> getArgs
  
  if null cmd
    then puts usage
    else forever - do

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

      puts - "> " ++ cmd
      br
      system cmd
      br

      sleep i
      return ()

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

    usage = "\n  \226\157\130  i=60 bla ls\n"