(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:DIR)
          op: assign_op.Equal
          rhs: 
            {
              (DQ 
                (command_sub
                  left_token: <Id.Left_DollarParen '$('>
                  command_list: 
                    (command.CommandList
                      children: [
                        (command.AndOr
                          ops: [Id.Op_DAmp]
                          children: [
                            (C {<cd>} 
                              {
                                (DQ 
                                  (command_sub
                                    left_token: <Id.Left_DollarParen '$('>
                                    command_list: 
                                      (command.CommandList
                                        children: [
                                          (C {<dirname>} 
                                            {
                                              (DQ 
                                                (braced_var_sub
                                                  token: <Id.VSub_Name BASH_SOURCE>
                                                  bracket_op: 
                                                    (bracket_op.ArrayIndex
                                                      expr: 
                                                        (arith_expr.ArithWord
                                                          w: {<Id.Lit_Digits 0>}
                                                        )
                                                    )
                                                )
                                              )
                                            }
                                          )
                                        ]
                                      )
                                  )
                                )
                              }
                            )
                            (C {<pwd>})
                          ]
                        )
                      ]
                    )
                )
              )
            }
          spids: [17]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: [
            (command.Sentence
              child: 
                (command.DBracket
                  expr: 
                    (bool_expr.Unary
                      op_id: Id.BoolUnary_f
                      child: {($ Id.VSub_DollarName '$DIR') </share.sh>}
                    )
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          action: [(C {<.>} {(DQ ($ Id.VSub_DollarName '$DIR') </share.sh>)})]
          spids: [48 60]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: [
            (command.Sentence
              child: 
                (command.DBracket
                  expr: 
                    (bool_expr.Unary
                      op_id: Id.BoolUnary_f
                      child: {($ Id.VSub_DollarName '$DIR') </share>}
                    )
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          action: [(C {<.>} {(DQ ($ Id.VSub_DollarName '$DIR') </share>)})]
          spids: [73 85]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: [
            (command.Sentence
              child: 
                (C {<Id.Lit_LBracket '['>} {<-z>} {(DQ ($ Id.VSub_DollarName '$OCAMLOPT'))} 
                  {<Id.Lit_RBracket ']'>}
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:OCAMLOPT)
                  op: assign_op.Equal
                  rhs: {(DQ <ocamlopt.opt>)}
                  spids: [114]
                )
              ]
            )
          ]
          spids: [98 111]
        )
      ]
    )
    (C {($ Id.VSub_DollarName '$OCAMLOPT')} {(DQ ($ Id.VSub_At '$@'))})
  ]
)