setLocals (x:xs) = do let (name,val) = break (=='=') x
                      makeLocal name
                      unless (null val) $ setEnv name $ drop 1 val
                      setLocals xs -- poor man's mapM_ >> return ExitSuccess
setLocals (x:xs) = do let (name,val) = break (=='=') x
                      makeLocal name
                      unless (null val) $ setEnv name $ drop 1 val
                      setLocals xs -- poor man's mapM_ >> return ExitSuccess
setLocals (x:xs) = do let (name,val) = break (=='=') x
                      makeLocal name
                      unless (null val) $ setEnv name $ drop 1 val
                      setLocals xs -- poor man's mapM_ >> return ExitSuccess