(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:ACCT)
          op: assign_op.Equal
          rhs: {<acct>}
          spids: [13]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:RESULTS)
          op: assign_op.Equal
          rhs: 
            {<acct.> (command_sub left_token:<Id.Left_Backtick '`'> child:(C {<uname>} {<-m>})) 
              <.tar.gz>
            }
          spids: [16]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:TMPDIR)
          op: assign_op.Equal
          rhs: {($ Id.VSub_Dollar '$$') <.tmp>}
          spids: [27]
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:TZ)
                  op: assign_op.Equal
                  rhs: {<UTC>}
                  spids: [31]
                )
              ]
            )
          terminator: <Id.Op_Semi _>
        )
        (C {<export>} {<TZ>})
      ]
    )
    (command.ShFunction
      name: run
      body: 
        (BraceGroup
          children: [
            (C {<'/usr/bin/time'>} {<-l>} {<-o>} {($ Id.VSub_Number '$1') <.time>} 
              {(DQ ($ Id.VSub_At '$@'))}
            )
          ]
        )
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} 
                      {(command_sub left_token:<Id.Left_Backtick '`'> child:(C {<whoami>}))} {<Id.KW_Bang '!'> <Id.Lit_Equals '='>} {(DQ <root>)} {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (C {<echo>} {(DQ <'You need to be root to run this test.'>)})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [63 83]
        )
      ]
    )
    (C {<echo>} {<Redirecting>} {<accounting.>})
    (C {<mkdir>} {($ Id.VSub_DollarName '$TMPDIR')})
    (C {<cd>} {($ Id.VSub_DollarName '$TMPDIR')})
    (command.Simple
      words: [{<Id.Lit_Colon ':'>}]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {($ Id.VSub_DollarName '$ACCT')}
        )
      ]
      do_fork: T
    )
    (C {<accton>} {($ Id.VSub_DollarName '$ACCT')})
    (C {<echo>} {<Running>} {<commands.>} {<This>} {<should>} {<not>} {<take>} {<more>} {<than>} {<30s.>})
    (C {<run>} {<awk>} {(SQ <'BEGIN {for (i = 0; i < 1000000; i++) cos(.3)}'>)} {<'/dev/null'>})
    (C {<run>} {<egrep>} {(SQ <'(.)(.)(.)(.)(.)(.)(.)(.)(.)\\9\\8\\7\\6\\5\\4\\3\\2\\1'>)} 
      {<'/usr/share/dict/words'>}
    )
    (C {<run>} {<find>} {<'/usr/src'>} {<-name>} {<xyzzy>})
    (C {<run>} {<sleep>} {<3>})
    (command.Simple
      words: [
        {<run>}
        {<dd>}
        {<Id.Lit_VarLike 'if='> <'/dev/zero'>}
        {<Id.Lit_VarLike 'bs='> <512>}
        {<Id.Lit_VarLike 'count='> <4096>}
        {<Id.Lit_VarLike 'of='> <zero>}
      ]
      redirects: [(redir op:<Id.Redir_Great '2>'> loc:(redir_loc.Fd fd:2) arg:{<'/dev/null'>})]
      do_fork: T
    )
    (command.Simple
      words: [{<run>} {<diff>} {<'/usr/share/dict/words'>} {<'/dev/null'>}]
      redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<'/dev/null'>})]
      do_fork: T
    )
    (C {<ln>} {<'/usr/bin/true'>} {<123456789012345>})
    (C {<run>} {<'./123456789012345'>})
    (C {<ln>} {<'/usr/bin/true'>} {<1234567890123456>})
    (C {<run>} {<'./1234567890123456'>})
    (C {<ln>} {<'/usr/bin/true'>} {<12345678901234567>})
    (C {<run>} {<'./12345678901234567'>})
    (command.Simple
      words: [{<echo>} {(SQ <'main(){volatile int s; fork(); s = *(int *)0;}'>)}]
      redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<core.c>})]
      do_fork: T
    )
    (C {<cc>} {<-o>} {<core>} {<core.c>})
    (C {<echo>} {<Generating>} {<segmentation>} {<fault.>})
    (C {<'./core'>})
    (C {<echo>} {<Turning>} {<off>} {<redirected>} {<accounting.>})
    (C {<accton>})
    (C {<echo>} {<Packing>} {<the>} {<results.>})
    (command.Simple
      words: [{<sa>} {<-u>} {($ Id.VSub_DollarName '$ACCT')}]
      redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<sa.u>})]
      do_fork: T
    )
    (command.Simple
      words: [{<lastcomm>} {<-cesuS>} {<-f>} {($ Id.VSub_DollarName '$ACCT')}]
      redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<lastcomm.cesuS>})]
      do_fork: T
    )
    (command.Pipeline
      children: [
        (C {<tar>} {<-cf>} {<->} {<acct>} {<sa.u>} {<lastcomm.cesuS>} {<Id.Lit_Star '*'> <.time>})
        (C {<gzip>} {<-c>})
        (command.Simple
          words: [{<uuencode>} {($ Id.VSub_DollarName '$RESULTS')}]
          redirects: [
            (redir
              op: <Id.Redir_Great '>'>
              loc: (redir_loc.Fd fd:1)
              arg: {<'../'> ($ Id.VSub_DollarName '$RESULTS') <.uue>}
            )
          ]
          do_fork: T
        )
      ]
      negated: F
    )
    (C {<echo>} {<Cleaning>} {<up.>})
    (C {<cd>} {<..>})
    (C {<rm>} {<-rf>} {($ Id.VSub_DollarName '$TMPDIR')})
    (C {<echo>} 
      {
        (DQ <'Done!  Please send your reply, enclosing the file '> ($ Id.VSub_DollarName '$RESULTS') 
          <.uue>
        )
      }
    )
    (C {<echo>} {<If>} {<your>} {<system>} {<runs>} {<with>} {<accounting>} {<enabled>} {<you>} {<probably>} 
      {<need>} {<to>} {<run> <Id.Lit_Colon ':'>}
    )
    (C {<echo>} {<accton>} {<'/var/account/acct'>})
  ]
)