runCompound b (If cond thn els) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> runCommands' b thn
                  _           -> runCommands' b els
runCompound b (If cond thn els) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> runCommands' b thn
                  _           -> runCommands' b els
runCompound b (If cond thn els) =
    do ec <- runCommands' IgnoreE cond
       case ec of ExitSuccess -> runCommands' b thn
                  _           -> runCommands' b els