runCompound b (Until cond code) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> return ExitSuccess
                  _           -> do runCommands' b code
                                    runCompound b $ Until cond code
runCompound b (Until cond code) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> return ExitSuccess
                  _           -> do runCommands' b code
                                    runCompound b $ Until cond code
runCompound b (Until cond code) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> return ExitSuccess
                  _           -> do runCommands' b code
                                    runCompound b $ Until cond code