(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_adm='> name:_adm)
          op: assign_op.Equal
          rhs: {<'/var/adm'>}
          spids: [92]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_nite='> name:_nite)
          op: assign_op.Equal
          rhs: {<'/var/adm/acct/nite'>}
          spids: [95]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_sum='> name:_sum)
          op: assign_op.Equal
          rhs: {<'/var/adm/acct/sum'>}
          spids: [98]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_wtmpx='> name:_wtmpx)
          op: assign_op.Equal
          rhs: {<'/var/adm/wtmpx'>}
          spids: [101]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'PATH='> name:PATH)
          op: assign_op.Equal
          rhs: {<'/usr/lib/acct'> <Id.Lit_Colon ':'> <'/usr/bin'> <Id.Lit_Colon ':'> <'/usr/sbin'>}
          spids: [104]
        )
      ]
      redirects: []
    )
    (C {<export>} {<PATH>})
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_statefile='> name:_statefile)
          op: assign_op.Equal
          rhs: {(${ Id.VSub_Name _nite) <'/statefile'>}
          spids: [115]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_active='> name:_active)
          op: assign_op.Equal
          rhs: {(${ Id.VSub_Name _nite) <'/active'>}
          spids: [121]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_lastdate='> name:_lastdate)
          op: assign_op.Equal
          rhs: {(${ Id.VSub_Name _nite) <'/lastdate'>}
          spids: [127]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_date='> name:_date)
          op: assign_op.Equal
          rhs: 
            {
              (DQ 
                (command_sub
                  left_token: <Id.Left_Backtick '`'>
                  child: 
                    (C {<date>} {<Id.Lit_Other '+'> <Id.Lit_Other '%'> <m> <Id.Lit_Other '%'> <d>})
                  right: <Id.Backtick_Right '`'>
                )
              )
            }
          spids: [133]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_errormsg='> name:_errormsg)
          op: assign_op.Equal
          rhs: 
            {
              (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                <'n************ ACCT ERRORS : see  '> (${ Id.VSub_Name _active) (${ Id.VSub_Name _date) <'********'> <Id.Lit_BadBackslash '\\'> <n> 
                <Id.Lit_BadBackslash '\\'> <n>
              )
            }
          spids: [148]
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_MIN_BLKS='> name:_MIN_BLKS)
          op: assign_op.Equal
          rhs: {<500>}
          spids: [167]
        )
      ]
      redirects: []
    )
    (C {<cd>} {(${ Id.VSub_Name _adm)})
    (command.Simple
      words: [{<date>}]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {(${ Id.VSub_Name _nite) <'/lock1'>}
        )
      ]
      more_env: []
      do_fork: T
    )
    (C {<chmod>} {<400>} {(${ Id.VSub_Name _nite) <'/lock1'>})
    (C {<ln>} {(${ Id.VSub_Name _nite) <'/lock1'>} {(${ Id.VSub_Name _nite) <'/lock'>})
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: (C {<test>} {($ Id.VSub_QMark '?')} {<-ne>} {<0>})
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_lnkerr='> name:_lnkerr)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                        <'n*********** 2 CRONS or ACCT PROBLEMS***********'> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n>
                      )
                    }
                  spids: [224]
                )
              ]
              redirects: []
            )
            (command.Pipeline
              children: [
                (command.Subshell
                  child: 
                    (command.CommandList
                      children: [
                        (command.Sentence
                          child: (C {<date>})
                          terminator: <Id.Op_Semi _>
                        )
                        (C {<echo>} {(DQ ($ Id.VSub_DollarName _lnkerr))})
                      ]
                    )
                  redirects: []
                )
                (C {<logger>} {<-p>} {<daemon.err>})
              ]
              negated: F
              stderr_indices: []
            )
            (command.Pipeline
              children: [
                (C {<echo>} {(DQ ($ Id.VSub_DollarName _lnkerr))})
                (C {<mailx>} {<adm>} {<root>})
              ]
              negated: F
              stderr_indices: []
            )
            (command.Simple
              words: [{<echo>} {(DQ <'ERROR: locks found, run aborted'>)}]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [210 221]
        )
      ]
      else_action: []
      redirects: []
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_blocks='> name:_blocks)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (command.Pipeline
                    children: [
                      (C {<df>} {($ Id.VSub_DollarName _adm)})
                      (C {<sed>} {(SQ <'s/.*://'>)})
                      (C {<awk>} {(SQ <'{ print $1 }'>)})
                    ]
                    negated: F
                    stderr_indices: []
                  )
                right: <Id.Backtick_Right '`'>
              )
            }
          spids: [313]
        )
      ]
      redirects: []
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} {(DQ ($ Id.VSub_DollarName _blocks))} {<-le>} 
                      {($ Id.VSub_DollarName _MIN_BLKS)} {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (C {<echo>} 
              {
                (DQ <'runacct: Insufficient space in '> ($ Id.VSub_DollarName _adm) <' ('> 
                  ($ Id.VSub_DollarName _blocks) <' blks); '> <Id.Lit_BadBackslash '\\'> <c>
                )
              }
            )
            (C {<echo>} {(DQ <'Terminating procedure'>)})
            (command.Subshell
              child: 
                (command.CommandList
                  children: [
                    (C {<echo>} 
                      {
                        (DQ <'runacct: Insufficient space in '> ($ Id.VSub_DollarName _adm) <' ('> 
                          ($ Id.VSub_DollarName _blocks) <' blks); '> <Id.Lit_BadBackslash '\\'> <c>
                        )
                      }
                    )
                    (C {<echo>} {(DQ <'Terminating procedure'>)})
                  ]
                )
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {<'/tmp/accounting_tmpfile'>}
                )
              ]
            )
            (command.Simple
              words: [{<cat>} {<'/tmp/accounting_tmpfile'>}]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Pipeline
              children: [(C {<cat>} {<'/tmp/accounting_tmpfile'>}) (C {<logger>} {<-p>} {<daemon.err>})]
              negated: F
              stderr_indices: []
            )
            (command.Simple
              words: [{<mailx>} {<root>} {<adm>}]
              redirects: [
                (redir
                  op: <Id.Redir_Less '<'>
                  loc: (redir_loc.Fd fd:0)
                  arg: {<'/tmp/accounting_tmpfile'>}
                )
              ]
              more_env: []
              do_fork: T
            )
            (C {<rm>} {<'/tmp/accounting_tmpfile'>})
            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [338 352]
        )
      ]
      else_action: []
      redirects: []
    )
    (command.Case
      to_match: {($ Id.VSub_Pound '#')}
      arms: [
        (case_arm
          pat_list: [{<0>}]
          action: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: (C {<test>} {<Id.KW_Bang '!'>} {<-r>} {(${ Id.VSub_Name _lastdate)})
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [{<echo>} {(DQ <0000>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _lastdate)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [481 495]
                )
              ]
              else_action: []
              redirects: []
            )
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (C {<test>} {(DQ (${ Id.VSub_Name _date))} {<Id.Lit_Equals '='>} 
                              {
                                (DQ 
                                  (command_sub
                                    left_token: <Id.Left_Backtick '`'>
                                    child: (C {<cat>} {(${ Id.VSub_Name _lastdate)})
                                    right: <Id.Backtick_Right '`'>
                                  )
                                )
                              }
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Pipeline
                      children: [
                        (command.Subshell
                          child: 
                            (command.CommandList
                              children: [
                                (command.Sentence
                                  child: (C {<date>})
                                  terminator: <Id.Op_Semi _>
                                )
                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                              ]
                            )
                          redirects: []
                        )
                        (C {<logger>} {<-p>} {<daemon.err>})
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Pipeline
                      children: [
                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                        (C {<mailx>} {<root>} {<adm>})
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Simple
                      words: [
                        {<echo>}
                        {
                          (DQ <'ERROR: acctg already run for '> 
                            (command_sub
                              left_token: <Id.Left_Backtick '`'>
                              child: (C {<date>})
                              right: <Id.Backtick_Right '`'>
                            ) <': check '> (${ Id.VSub_Name _lastdate)
                          )
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
                    (C {<mv>} {(${ Id.VSub_Name _active)} 
                      {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<1>}
                    )
                  ]
                  spids: [514 539]
                )
              ]
              else_action: []
              redirects: []
            )
            (command.Simple
              words: [{<echo>} {(${ Id.VSub_Name _date)}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _lastdate)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Simple
              words: [{<echo>} {(DQ <SETUP>)}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _statefile)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (C {<nulladm>} {(${ Id.VSub_Name _active)})
            (command.Simple
              words: [{<echo>} {(${ Id.VSub_Name _date)}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Pipeline
              children: [
                (C {<echo>} 
                  {
                    (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> 
                      <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <'n**********  SYSTEM ACCOUNTING STARTED '> 
                      (command_sub
                        left_token: <Id.Left_Backtick '`'>
                        child: (C {<date>})
                        right: <Id.Backtick_Right '`'>
                      ) <'  **********'> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                      <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n>
                    )
                  }
                )
                (C {<logger>} {<-p>} {<daemon.notice>})
              ]
              negated: F
              stderr_indices: []
            )
            (command.Simple
              words: [{<echo>} {(${ Id.VSub_Name _date)}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
          ]
          spids: [474 475 741 -1]
        )
        (case_arm
          pat_list: [{<1>}]
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_date='> name:_date)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number 1)}
                  spids: [751]
                )
              ]
              redirects: []
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_errormsg='> name:_errormsg)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                        <'n************ ACCT ERRORS : see  '> (${ Id.VSub_Name _active) (${ Id.VSub_Name _date) <'********'> <Id.Lit_BadBackslash '\\'> <n> 
                        <Id.Lit_BadBackslash '\\'> <n>
                      )
                    }
                  spids: [755]
                )
              ]
              redirects: []
            )
            (command.Simple
              words: [
                {<echo>}
                {
                  (DQ <'restarting acctg for '> (${ Id.VSub_Name _date) <' at '> 
                    (command_sub
                      left_token: <Id.Left_Backtick '`'>
                      child: (C {<cat>} {(${ Id.VSub_Name _statefile)})
                      right: <Id.Backtick_Right '`'>
                    )
                  )
                }
              ]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Pipeline
              children: [
                (C {<echo>} 
                  {
                    (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> 
                      <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                      <'n********** SYSTEM ACCOUNTING RESTARTED '> (command_sub left_token:<Id.Left_Backtick '`'> child:(C {<date>}) right:<Id.Backtick_Right '`'>) 
                      <' **********'> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> 
                      <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n>
                    )
                  }
                )
                (C {<logger>} {<-p>} {<daemon.notice>})
              ]
              negated: F
              stderr_indices: []
            )
          ]
          spids: [744 745 841 -1]
        )
        (case_arm
          pat_list: [{<2>}]
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_date='> name:_date)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number 1)}
                  spids: [851]
                )
              ]
              redirects: []
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_errormsg='> name:_errormsg)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                        <'n************ ACCT ERRORS : see  '> (${ Id.VSub_Name _active) (${ Id.VSub_Name _date) <'********'> <Id.Lit_BadBackslash '\\'> <n> 
                        <Id.Lit_BadBackslash '\\'> <n>
                      )
                    }
                  spids: [855]
                )
              ]
              redirects: []
            )
            (command.Simple
              words: [
                {<echo>}
                {(DQ <'restarting acctg for '> (${ Id.VSub_Name _date) <' at '> ($ Id.VSub_Number 2))}
              ]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Simple
              words: [
                {<echo>}
                {
                  (DQ <'previous state was '> 
                    (command_sub
                      left_token: <Id.Left_Backtick '`'>
                      child: (C {<cat>} {(${ Id.VSub_Name _statefile)})
                      right: <Id.Backtick_Right '`'>
                    )
                  )
                }
              ]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Simple
              words: [{<echo>} {(DQ ($ Id.VSub_Number 2))}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _statefile)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (command.Pipeline
              children: [
                (C {<echo>} 
                  {
                    (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> 
                      <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                      <'n********** SYSTEM ACCOUNTING RESTARTED '> (command_sub left_token:<Id.Left_Backtick '`'> child:(C {<date>}) right:<Id.Backtick_Right '`'>) 
                      <' **********'> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n> 
                      <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n>
                    )
                  }
                )
                (C {<logger>} {<-p>} {<daemon.notice>})
              ]
              negated: F
              stderr_indices: []
            )
          ]
          spids: [844 845 968 -1]
        )
        (case_arm
          pat_list: [{<Id.Lit_Star '*'>}]
          action: [
            (command.Pipeline
              children: [
                (command.Subshell
                  child: 
                    (command.CommandList
                      children: [
                        (command.Sentence
                          child: (C {<date>})
                          terminator: <Id.Op_Semi _>
                        )
                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                      ]
                    )
                  redirects: []
                )
                (C {<logger>} {<-p>} {<daemon.err>})
              ]
              negated: F
              stderr_indices: []
            )
            (command.Pipeline
              children: [(C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))}) (C {<mailx>} {<root>} {<adm>})]
              negated: F
              stderr_indices: []
            )
            (command.Simple
              words: [{<echo>} {(DQ <'ERROR: runacct called with invalid arguments'>)}]
              redirects: [
                (redir
                  op: <Id.Redir_Great '>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {(${ Id.VSub_Name _active)}
                )
              ]
              more_env: []
              do_fork: T
            )
            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
            (C {<mv>} {(${ Id.VSub_Name _active)} {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [970 971 1056 -1]
        )
      ]
      redirects: []
    )
    (command.WhileUntil
      keyword: <Id.KW_While while>
      cond: (condition.Shell commands:[(C {<Id.Lit_LBracket '['>} {<1>} {<Id.Lit_RBracket ']'>})])
      body: 
        (command.DoGroup
          children: [
            (command.Case
              to_match: 
                {
                  (DQ 
                    (command_sub
                      left_token: <Id.Left_Backtick '`'>
                      child: (C {<cat>} {(${ Id.VSub_Name _statefile)})
                      right: <Id.Backtick_Right '`'>
                    )
                  )
                }
              arms: [
                (case_arm
                  pat_list: [{<SETUP>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _adm)})
                    (command.Subshell
                      child: 
                        (command.CommandList
                          children: [
                            (command.Sentence
                              child: (C {<date>})
                              terminator: <Id.Op_Semi _>
                            )
                            (C {<ls>} {<-l>} {<fee>} {<pacct> <Id.Lit_Star '*'>} 
                              {(${ Id.VSub_Name _wtmpx) <Id.Lit_Star '*'>}
                            )
                          ]
                        )
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                    )
                    (C {<turnacct>} {<switch>})
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_rc='> name:_rc)
                          op: assign_op.Equal
                          rhs: {($ Id.VSub_QMark '?')}
                          spids: [1143]
                        )
                      ]
                      redirects: []
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {(${ Id.VSub_Name _rc)} {<-ne>} {<0>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (command.Pipeline
                              children: [
                                (command.Subshell
                                  child: 
                                    (command.CommandList
                                      children: [
                                        (command.Sentence
                                          child: (C {<date>})
                                          terminator: <Id.Op_Semi _>
                                        )
                                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                      ]
                                    )
                                  redirects: []
                                )
                                (C {<logger>} {<-p>} {<daemon.err>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Pipeline
                              children: [
                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                (C {<mailx>} {<root>} {<adm>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Simple
                              words: [
                                {<echo>}
                                {(DQ <'ERROR: turnacct switch returned rc='> (${ Id.VSub_Name _rc))}
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
                            (C {<mv>} {(${ Id.VSub_Name _active)} 
                              {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Exit exit>
                              arg_word: {<1>}
                            )
                          ]
                          spids: [1146 1159]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (command.ForEach
                      iter_names: [_i]
                      iterable: 
                        (for_iter.Words
                          words: [{<pacct> <Id.Lit_QMark '?'> <Id.Lit_Star '*'>}]
                        )
                      body: 
                        (command.DoGroup
                          children: [
                            (command.If
                              arms: [
                                (if_arm
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (C {<Id.Lit_LBracket '['>} {(DQ (${ Id.VSub_Name _i))} 
                                          {<Id.Lit_Equals '='>} {(DQ <'pacct?*'>)} {<Id.Lit_RBracket ']'>}
                                        )
                                      ]
                                    )
                                  action: [
                                    (C {<rm>} {<-f>} 
                                      {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>}
                                    )
                                    (C {<mv>} {(${ Id.VSub_Name _active)} 
                                      {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                                    )
                                    (command.ControlFlow
                                      token: <Id.ControlFlow_Exit exit>
                                      arg_word: {<1>}
                                    )
                                  ]
                                  spids: [1267 1286]
                                )
                              ]
                              else_action: []
                              redirects: []
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (command.Sentence
                                          child: 
                                            (C {<test>} {<-r>} 
                                              {<S> (${ Id.VSub_Name _i) <.> (${ Id.VSub_Name _date)}
                                            )
                                          terminator: <Id.Op_Semi _>
                                        )
                                      ]
                                    )
                                  action: [
                                    (command.Pipeline
                                      children: [
                                        (command.Subshell
                                          child: 
                                            (command.CommandList
                                              children: [
                                                (command.Sentence
                                                  child: (C {<date>})
                                                  terminator: <Id.Op_Semi _>
                                                )
                                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                              ]
                                            )
                                          redirects: []
                                        )
                                        (C {<logger>} {<-p>} {<daemon.err>})
                                      ]
                                      negated: F
                                      stderr_indices: []
                                    )
                                    (command.Pipeline
                                      children: [
                                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                        (C {<mailx>} {<root>} {<adm>})
                                      ]
                                      negated: F
                                      stderr_indices: []
                                    )
                                    (command.Simple
                                      words: [
                                        {<echo>}
                                        {
                                          (DQ <'ERROR: S'> (${ Id.VSub_Name _i) <.> 
                                            (${ Id.VSub_Name _date) <' already exists'>
                                          )
                                        }
                                      ]
                                      redirects: [
                                        (redir
                                          op: <Id.Redir_DGreat '>>'>
                                          loc: (redir_loc.Fd fd:1)
                                          arg: {(${ Id.VSub_Name _active)}
                                        )
                                      ]
                                      more_env: []
                                      do_fork: T
                                    )
                                    (command.Simple
                                      words: [{<echo>} {(DQ <'file setups probably already run'>)}]
                                      redirects: [
                                        (redir
                                          op: <Id.Redir_DGreat '>>'>
                                          loc: (redir_loc.Fd fd:1)
                                          arg: {(${ Id.VSub_Name _active)}
                                        )
                                      ]
                                      more_env: []
                                      do_fork: T
                                    )
                                    (C {<rm>} {<-f>} 
                                      {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>}
                                    )
                                    (C {<mv>} {(${ Id.VSub_Name _active)} 
                                      {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                                    )
                                    (command.ControlFlow
                                      token: <Id.ControlFlow_Exit exit>
                                      arg_word: {<1>}
                                    )
                                  ]
                                  spids: [1322 1339]
                                )
                              ]
                              else_action: []
                              redirects: []
                            )
                            (C {<mv>} {(${ Id.VSub_Name _i)} 
                              {<S> (${ Id.VSub_Name _i) <.> (${ Id.VSub_Name _date)}
                            )
                          ]
                        )
                      redirects: []
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (C {<test>} {<-r>} 
                                      {(${ Id.VSub_Name _nite) <'/wtmpx.'> (${ Id.VSub_Name _date)}
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (command.Pipeline
                              children: [
                                (command.Subshell
                                  child: 
                                    (command.CommandList
                                      children: [
                                        (command.Sentence
                                          child: (C {<date>})
                                          terminator: <Id.Op_Semi _>
                                        )
                                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                      ]
                                    )
                                  redirects: []
                                )
                                (C {<logger>} {<-p>} {<daemon.err>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Pipeline
                              children: [
                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                (C {<mailx>} {<root>} {<adm>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Simple
                              words: [
                                {<echo>}
                                {
                                  (DQ <'ERROR: '> (${ Id.VSub_Name _nite) <'/wtmpx.'> 
                                    (${ Id.VSub_Name _date) <' already exists: run setup manually'>
                                  )
                                }
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_Great '>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
                            (C {<mv>} {(${ Id.VSub_Name _active)} 
                              {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Exit exit>
                              arg_word: {<1>}
                            )
                          ]
                          spids: [1472 1488]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (C {<closewtmp>})
                    (C {<cp>} {(${ Id.VSub_Name _wtmpx)} 
                      {(${ Id.VSub_Name _nite) <'/'> (${ Id.VSub_Name _date) <.wtmpx>}
                    )
                    (C {<acctwtmp>} {(DQ <runacct>)} 
                      {(${ Id.VSub_Name _nite) <'/'> (${ Id.VSub_Name _date) <.wtmpx>}
                    )
                    (C {<nulladm>} {(${ Id.VSub_Name _wtmpx)})
                    (C {<utmp2wtmp>})
                    (command.Simple
                      words: [{<echo>} {(DQ <'files setups complete'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <WTMPFIX>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [1097 1098 1655 -1]
                )
                (case_arm
                  pat_list: [{<WTMPFIX>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (C {<nulladm>} {<tmpwtmp>} {<wtmperror>})
                    (command.Simple
                      words: [{<wtmpfix>}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Less '<'>
                          loc: (redir_loc.Fd fd:0)
                          arg: {(${ Id.VSub_Name _date) <.wtmpx>}
                        )
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<tmpwtmp>}
                        )
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<wtmperror>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {($ Id.VSub_QMark '?')} {<-ne>} {<0>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (command.Pipeline
                              children: [
                                (command.Subshell
                                  child: 
                                    (command.CommandList
                                      children: [
                                        (command.Sentence
                                          child: (C {<date>})
                                          terminator: <Id.Op_Semi _>
                                        )
                                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                      ]
                                    )
                                  redirects: []
                                )
                                (C {<mailx>} {<root>} {<adm>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Pipeline
                              children: [
                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                                (C {<logger>} {<-p>} {<daemon.err>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Simple
                              words: [
                                {<echo>}
                                {
                                  (DQ <'ERROR: wtmpfix errors see '> (${ Id.VSub_Name _nite) 
                                    <'/wtmperror'> (${ Id.VSub_Name _date)
                                  )
                                }
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
                            (C {<mv>} {(${ Id.VSub_Name _active)} 
                              {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                            )
                            (C {<mv>} {<wtmperror>} {<wtmperror> (${ Id.VSub_Name _date)})
                            (command.ControlFlow
                              token: <Id.ControlFlow_Exit exit>
                              arg_word: {<1>}
                            )
                          ]
                          spids: [1695 1707]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <'wtmpx processing complete'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <CONNECT>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [1658 1659 1836 -1]
                )
                (case_arm
                  pat_list: [{<CONNECT>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (C {<nulladm>} {<lineuse>} {<reboots>} {<log>} {<ctacct.> (${ Id.VSub_Name _date)})
                    (command.Simple
                      words: [{<acctcon>} {<-l>} {<lineuse>} {<-o>} {<reboots>}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Less '<'>
                          loc: (redir_loc.Fd fd:0)
                          arg: {<tmpwtmp>}
                        )
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<log>}
                        )
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<ctacct.> (${ Id.VSub_Name _date)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {<-s>} {<log>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (command.Pipeline
                              children: [
                                (command.Subshell
                                  child: 
                                    (command.CommandList
                                      children: [
                                        (command.Sentence
                                          child: (C {<date>})
                                          terminator: <Id.Op_Semi _>
                                        )
                                        (C {<cat>} {(${ Id.VSub_Name _nite) <'/log'>})
                                      ]
                                    )
                                  redirects: []
                                )
                                (C {<mailx>} {<adm>} {<root>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Pipeline
                              children: [
                                (C {<echo>} 
                                  {
                                    (DQ <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> 
                                      <'n************ ACCT ERRORS : see  '> (${ Id.VSub_Name _nite) <'log********'> <Id.Lit_BadBackslash '\\'> <n> <Id.Lit_BadBackslash '\\'> <n>
                                    )
                                  }
                                )
                                (C {<logger>} {<-p>} {<daemon.err>})
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Simple
                              words: [{<cat>} {(${ Id.VSub_Name _nite) <'/log'>}]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                          ]
                          spids: [1906 1916]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <'connect acctg complete'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <PROCESS>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [1840 1841 2011 -1]
                )
                (case_arm
                  pat_list: [{<PROCESS>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (command.ForEach
                      iter_names: [_Spacct]
                      iterable: 
                        (for_iter.Words
                          words: [
                            {(${ Id.VSub_Name _adm) <'/Spacct'> <Id.Lit_Star '*'> <.> 
                              (${ Id.VSub_Name _date)
                            }
                          ]
                        )
                      body: 
                        (command.DoGroup
                          children: [
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: 
                                    (sh_lhs_expr.Name
                                      left: <Id.Lit_VarLike '_ptacct='>
                                      name: _ptacct
                                    )
                                  op: assign_op.Equal
                                  rhs: 
                                    {
                                      (command_sub
                                        left_token: <Id.Left_Backtick '`'>
                                        child: 
                                          (command.Pipeline
                                            children: [
                                              (C {<basename>} {(${ Id.VSub_Name _Spacct)})
                                              (C {<sed>} {(SQ <'s/Sp/pt/'>)})
                                            ]
                                            negated: F
                                            stderr_indices: []
                                          )
                                        right: <Id.Backtick_Right '`'>
                                      )
                                    }
                                  spids: [2056]
                                )
                              ]
                              redirects: []
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (command.Sentence
                                          child: (C {<test>} {<-s>} {(${ Id.VSub_Name _ptacct)})
                                          terminator: <Id.Op_Semi _>
                                        )
                                      ]
                                    )
                                  action: [
                                    (command.Simple
                                      words: [
                                        {<echo>}
                                        {
                                          (DQ <'WARNING: accounting already run for '> 
                                            (${ Id.VSub_Name _Spacct)
                                          )
                                        }
                                      ]
                                      redirects: [
                                        (redir
                                          op: <Id.Redir_DGreat '>>'>
                                          loc: (redir_loc.Fd fd:1)
                                          arg: {(${ Id.VSub_Name _active)}
                                        )
                                      ]
                                      more_env: []
                                      do_fork: T
                                    )
                                    (command.Simple
                                      words: [
                                        {<echo>}
                                        {
                                          (DQ <'WARNING: remove '> (${ Id.VSub_Name _nite) <'/'> 
                                            (${ Id.VSub_Name _ptacct) <' to rerun'>
                                          )
                                        }
                                      ]
                                      redirects: [
                                        (redir
                                          op: <Id.Redir_DGreat '>>'>
                                          loc: (redir_loc.Fd fd:1)
                                          arg: {(${ Id.VSub_Name _active)}
                                        )
                                      ]
                                      more_env: []
                                      do_fork: T
                                    )
                                  ]
                                  spids: [2076 2087]
                                )
                              ]
                              else_action: [
                                (C {<nulladm>} {(${ Id.VSub_Name _ptacct)})
                                (command.Simple
                                  words: [{<acctprc>}]
                                  redirects: [
                                    (redir
                                      op: <Id.Redir_Less '<'>
                                      loc: (redir_loc.Fd fd:0)
                                      arg: {(${ Id.VSub_Name _Spacct)}
                                    )
                                    (redir
                                      op: <Id.Redir_Great '>'>
                                      loc: (redir_loc.Fd fd:1)
                                      arg: {(${ Id.VSub_Name _ptacct)}
                                    )
                                  ]
                                  more_env: []
                                  do_fork: T
                                )
                                (command.Simple
                                  words: [
                                    {<echo>}
                                    {(DQ <'process acctg complete for '> (${ Id.VSub_Name _Spacct))}
                                  ]
                                  redirects: [
                                    (redir
                                      op: <Id.Redir_DGreat '>>'>
                                      loc: (redir_loc.Fd fd:1)
                                      arg: {(${ Id.VSub_Name _active)}
                                    )
                                  ]
                                  more_env: []
                                  do_fork: T
                                )
                              ]
                              redirects: []
                            )
                          ]
                        )
                      redirects: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <'all process actg complete for '> (${ Id.VSub_Name _date))}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <MERGE>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2015 2016 2205 -1]
                )
                (case_arm
                  pat_list: [{<MERGE>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (command.Simple
                      words: [{<acctmerg>} {<ptacct> <Id.Lit_Star '*'> <.> (${ Id.VSub_Name _date)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Less '<'>
                          loc: (redir_loc.Fd fd:0)
                          arg: {<ctacct.> (${ Id.VSub_Name _date)}
                        )
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<daytacct>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <'tacct merge to create daytacct complete'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <FEES>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2209 2210 2266 -1]
                )
                (case_arm
                  pat_list: [{<FEES>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {<-s>} {(${ Id.VSub_Name _adm) <'/fee'>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<cp>} {<daytacct>} {<tmpdayt>})
                            (command.Pipeline
                              children: [
                                (C {<sort>} {<Id.Lit_Other '+'> <0n>} {<Id.Lit_Other '+'> <2>} 
                                  {(${ Id.VSub_Name _adm) <'/fee'>}
                                )
                                (C {<acctmerg>} {<-i>})
                                (command.Simple
                                  words: [{<acctmerg>} {<tmpdayt>}]
                                  redirects: [
                                    (redir
                                      op: <Id.Redir_Great '>'>
                                      loc: (redir_loc.Fd fd:1)
                                      arg: {<daytacct>}
                                    )
                                  ]
                                  more_env: []
                                  do_fork: T
                                )
                              ]
                              negated: F
                              stderr_indices: []
                            )
                            (command.Simple
                              words: [{<echo>} {(DQ <'merged fees'>)}]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<rm>} {<-f>} {<tmpdayt>})
                          ]
                          spids: [2282 2294]
                        )
                      ]
                      else_action: [
                        (command.Simple
                          words: [{<echo>} {(DQ <'no fees'>)}]
                          redirects: [
                            (redir
                              op: <Id.Redir_DGreat '>>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {(${ Id.VSub_Name _active)}
                            )
                          ]
                          more_env: []
                          do_fork: T
                        )
                      ]
                      redirects: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <DISK>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2270 2271 2382 -1]
                )
                (case_arm
                  pat_list: [{<DISK>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _nite)})
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {<-r>} {<disktacct>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<cp>} {<daytacct>} {<tmpdayt>})
                            (command.Simple
                              words: [{<acctmerg>} {<disktacct>}]
                              redirects: [
                                (redir
                                  op: <Id.Redir_Less '<'>
                                  loc: (redir_loc.Fd fd:0)
                                  arg: {<tmpdayt>}
                                )
                                (redir
                                  op: <Id.Redir_Great '>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {<daytacct>}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (command.Simple
                              words: [{<echo>} {(DQ <'merged disk records'>)}]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<rm>} {<-f>} {<tmpdayt>})
                            (C {<mv>} {<disktacct>} {<'/tmp/disktacct.'> (${ Id.VSub_Name _date)})
                          ]
                          spids: [2401 2410]
                        )
                      ]
                      else_action: [
                        (command.Simple
                          words: [{<echo>} {(DQ <'no disk records'>)}]
                          redirects: [
                            (redir
                              op: <Id.Redir_DGreat '>>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {(${ Id.VSub_Name _active)}
                            )
                          ]
                          more_env: []
                          do_fork: T
                        )
                      ]
                      redirects: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <MERGETACCT>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2386 2387 2491 -1]
                )
                (case_arm
                  pat_list: [{<MERGETACCT>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _adm) <'/acct'>})
                    (C {<cp>} {<'nite/daytacct'>} {<'sum/tacct'> (${ Id.VSub_Name _date)})
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {<Id.KW_Bang '!'>} {<-r>} {<'sum/tacct'>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (command.Simple
                              words: [
                                {<echo>}
                                {(DQ <'WARNING: recreating '> (${ Id.VSub_Name _adm) <'/sum/tacct '>)}
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                            (C {<nulladm>} {<'sum/tacct'>})
                          ]
                          spids: [2522 2533]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (C {<rm>} {<-f>} {<'sum/tacctprev'>})
                    (C {<cp>} {<'sum/tacct'>} {<'sum/tacctprev'>})
                    (command.Simple
                      words: [{<acctmerg>} {<'sum/tacctprev'>}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Less '<'>
                          loc: (redir_loc.Fd fd:0)
                          arg: {<'sum/tacct'> (${ Id.VSub_Name _date)}
                        )
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<'sum/tacct'>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <'updated sum/tacct'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <CMS>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2494 2495 2615 -1]
                )
                (case_arm
                  pat_list: [{<CMS>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _adm) <'/acct'>})
                    (C {<nulladm>} {<'sum/daycms'>})
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: (C {<test>} {<Id.KW_Bang '!'>} {<-r>} {<'sum/cms'>})
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<nulladm>} {<'sum/cms'>})
                            (command.Simple
                              words: [
                                {<echo>}
                                {(DQ <'WARNING: recreating '> (${ Id.VSub_Name _adm) <'/sum/cms '>)}
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_DGreat '>>'>
                                  loc: (redir_loc.Fd fd:1)
                                  arg: {(${ Id.VSub_Name _active)}
                                )
                              ]
                              more_env: []
                              do_fork: T
                            )
                          ]
                          spids: [2636 2647]
                        )
                      ]
                      else_action: []
                      redirects: []
                    )
                    (C {<cp>} {<'sum/cms'>} {<'sum/cmsprev'>})
                    (command.Simple
                      words: [
                        {<acctcms>}
                        {(${ Id.VSub_Name _adm) <'/Spacct'> <Id.Lit_Star '*'> <.> 
                          (${ Id.VSub_Name _date)
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<'sum/daycms'>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<acctcms>} {<-s>} {<'sum/daycms'>} {<'sum/cmsprev'>}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<'sum/cms'>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Pipeline
                      children: [
                        (C {<acctcms>} {<-a>} {<-s>} {<'sum/daycms'>})
                        (command.Simple
                          words: [{<sed>} {<-n>} {<1> <Id.Lit_Comma ','> <56p>}]
                          redirects: [
                            (redir
                              op: <Id.Redir_Great '>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'nite/daycms'>}
                            )
                          ]
                          more_env: []
                          do_fork: T
                        )
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Pipeline
                      children: [
                        (C {<acctcms>} {<-a>} {<-s>} {<'sum/cms'>})
                        (command.Simple
                          words: [{<sed>} {<-n>} {<1> <Id.Lit_Comma ','> <56p>}]
                          redirects: [
                            (redir
                              op: <Id.Redir_Great '>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'nite/cms'>}
                            )
                          ]
                          more_env: []
                          do_fork: T
                        )
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (C {<lastlogin>})
                    (command.Simple
                      words: [{<echo>} {(DQ <'command summaries complete'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <USEREXIT>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2619 2620 2778 -1]
                )
                (case_arm
                  pat_list: [{<USEREXIT>}]
                  action: [
                    (command.AndOr
                      ops: [Id.Op_DAmp]
                      children: [
                        (C {<Id.Lit_LBracket '['>} {<-s>} {<'/usr/lib/acct/runacct.local'>} 
                          {<Id.Lit_RBracket ']'>}
                        )
                        (C {<'/usr/lib/acct/runacct.local'>})
                      ]
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <CLEANUP>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                  ]
                  spids: [2782 2783 2813 -1]
                )
                (case_arm
                  pat_list: [{<CLEANUP>}]
                  action: [
                    (C {<cd>} {(${ Id.VSub_Name _adm) <'/acct'>})
                    (C {<nulladm>} {(${ Id.VSub_Name _adm) <'/fee'>})
                    (C {<rm>} {<-f>} 
                      {(${ Id.VSub_Name _adm) <'/Spacct'> <Id.Lit_Star '*'> <.> (${ Id.VSub_Name _date)}
                    )
                    (command.Sentence
                      child: 
                        (command.Simple
                          words: [{<prdaily>}]
                          redirects: [
                            (redir
                              op: <Id.Redir_DGreat '>>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'sum/rprt'> (${ Id.VSub_Name _date)}
                            )
                          ]
                          more_env: []
                          do_fork: T
                        )
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<rm>} {<-f>} {<'nite/lock'> <Id.Lit_Star '*'>})
                    (C {<rm>} {<-f>} {<'nite/ptacct'> <Id.Lit_Star '*'> <.> (${ Id.VSub_Name _date)} 
                      {<'nite/ctacct.'> (${ Id.VSub_Name _date)}
                    )
                    (C {<mv>} {<-f>} {<'nite/'> (${ Id.VSub_Name _date) <.wtmpx>} {<'nite/owtmpx'>})
                    (C {<rm>} {<-f>} {<'nite/wtmperror'> (${ Id.VSub_Name _date)} 
                      {<'nite/active'> (${ Id.VSub_Name _date)} {<'nite/tmpwtmp'>}
                    )
                    (command.Simple
                      words: [
                        {<echo>}
                        {
                          (DQ <'system accounting completed at '> 
                            (command_sub
                              left_token: <Id.Left_Backtick '`'>
                              child: (C {<date>})
                              right: <Id.Backtick_Right '`'>
                            )
                          )
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _active)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.Pipeline
                      children: [
                        (C {<echo>} 
                          {
                            (DQ <'********** SYSTEM ACCOUNTING COMPLETED '> 
                              (command_sub
                                left_token: <Id.Left_Backtick '`'>
                                child: (C {<date>})
                                right: <Id.Backtick_Right '`'>
                              ) <' **********'>
                            )
                          }
                        )
                        (C {<logger>} {<-p>} {<daemon.notice>})
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Simple
                      words: [{<echo>} {(DQ <COMPLETE>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {(${ Id.VSub_Name _statefile)}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<0>}
                    )
                  ]
                  spids: [2817 2818 2968 -1]
                )
                (case_arm
                  pat_list: [{<Id.Lit_Star '*'>}]
                  action: [
                    (command.Pipeline
                      children: [
                        (command.Subshell
                          child: 
                            (command.CommandList
                              children: [
                                (command.Sentence
                                  child: (C {<date>})
                                  terminator: <Id.Op_Semi _>
                                )
                                (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                              ]
                            )
                          redirects: []
                        )
                        (C {<logger>} {<-p>} {<daemon.err>})
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Pipeline
                      children: [
                        (C {<echo>} {(DQ (${ Id.VSub_Name _errormsg))})
                        (C {<mailx>} {<adm>} {<root>})
                      ]
                      negated: F
                      stderr_indices: []
                    )
                    (command.Simple
                      words: [
                        {<echo>}
                        {(DQ <'ERROR: invalid state, check '> (${ Id.VSub_Name _statefile))}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_DGreat '>>'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<active>}
                        )
                      ]
                      more_env: []
                      do_fork: T
                    )
                    (C {<rm>} {<-f>} {(${ Id.VSub_Name _nite) <'/lock'> <Id.Lit_Star '*'>})
                    (C {<mv>} {(${ Id.VSub_Name _active)} 
                      {(${ Id.VSub_Name _active) (${ Id.VSub_Name _date)}
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<1>}
                    )
                  ]
                  spids: [2971 2972 3057 -1]
                )
              ]
              redirects: []
            )
          ]
        )
      redirects: []
    )
  ]
)