(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: <Id.Left_Backtick '`'>
                child: (C {<ocamlfind>} {<query>} {<reason>})
              )
            }
          spids: [8]
        )
      ]
    )
    (C {<ocamlfind>} {<ocamldoc>} {<-g>} {($ Id.VSub_DollarName '$REASON_DIR') <'/reasondoc.cma'>} 
      {($ Id.VSub_At '$@')}
    )
  ]
)