module Main(main) where

import System.Cmd
import System.Environment
import System.Directory
import System.Exit

main :: IO ()
main = do
  ls <- getArgs
  case ls of
   (c:a:xs) -> do
     setCurrentDirectory c
     ex <- rawSystem a xs
     exitWith ex