(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:GROFF_NO_SGR)
          op: assign_op.Equal
          rhs: {<1>}
          spids: [11]
        )
      ]
    )
    (C {<export>} {<GROFF_NO_SGR>})
    (command.Pipeline
      children: [
        (C {<echo>} {(DQ <'.am TH\n'> <'.hy 0\n'> <'.na\n'> <'..\n'> <'.rm }H\n'> <'.rm }F'>)})
        (C {<nroff>} {<-man>} {<->} 
          {
            (braced_var_sub
              token: <Id.VSub_Number 1>
              suffix_op: (suffix_op.Unary tok:<Id.VTest_Plus '+'> arg_word:{(DQ ($ Id.VSub_At '$@'))})
            )
          }
        )
        (C {<perl>} {<-ne>} 
          {
            (SQ <'\n'> <'\tchomp;\n'> <'\ts/.\\010//g;\n'> <'\ts/\\s*$//;\n'> <'\tif (/^$/) {\n'> 
              <'\t\t$sawblank = 1;\n'> <'\t\tnext;\n'> <'\t} else {\n'> <'\t\tif ($sawblank && $didprint) {\n'> <'\t\t\tprint "\\n";\n'> 
              <'\t\t\t$sawblank = 0;\n'> <'\t\t}\n'> <'\t\tprint "$_\\n";\n'> <'\t\t$didprint = 1;\n'> <'\t}\n'>
            )
          }
        )
      ]
      negated: F
    )
  ]
)