(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:REASON_DIR)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: (Token id:Id.Left_Backtick val:'`' span_id:9)
                command_list: (command.CommandList children:[(C {(ocamlfind)} {(query)} {(reason)})])
              )
            }
          spids: [8]
        )
      ]
    )
    (C {(ocamlfind)} {(ocamldoc)} {(-g)} {($ Id.VSub_DollarName '$REASON_DIR') (/reasondoc.cma)} 
      {($ Id.VSub_At '$@')}
    )
  ]
)