oil AST

(command.CommandList
  children: [
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_Pound '$#')} 
                  {<Id.KW_Bang '!'> <Id.Lit_Equals '='>} {<0>} {<Id.Lit_RBracket ']'>}
                )
              ]
            )
          action: [(C {<cd>} {($ Id.VSub_Number '$1')})]
          spids: [9 22]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:dname)
          op: assign_op.Equal
          rhs: {(command_sub left_token:<Id.Left_Backtick '`'> child:(C {<pwd>}))}
          spids: [30]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:fdname)
          op: assign_op.Equal
          rhs: {($ Id.VSub_Number '$2')}
          spids: [37]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$dname')} 
                  {<Id.KW_Bang '!'> <Id.Lit_Equals '='>} {<'/'>} {<Id.Lit_RBracket ']'>}
                )
              ]
            )
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:dname)
                  op: assign_op.Equal
                  rhs: {(${ Id.VSub_Name dname) <'/'>}
                  spids: [56]
                )
              ]
            )
          ]
          spids: [40 53]
        )
      ]
    )
    (C {<echo>} {(DQ <'<HTML>'>)})
    (C {<echo>} {(DQ <'<TITLE>'>)})
    (C {<echo>} {<Directory>} {<of>} {($ Id.VSub_DollarName '$fdname')})
    (C {<echo>} {(DQ <'</TITLE>'>)})
    (C {<echo>} {(DQ <'<H1>'>)})
    (C {<echo>} {<Directory>} {<of>} {($ Id.VSub_DollarName '$fdname')})
    (C {<echo>} {(DQ <'</H1>'>)})
    (C {<echo>} {(DQ <'<HR>'>)})
    (command.Pipeline
      children: [
        (C {<ls>} {($ Id.VSub_DollarName '$dname')})
        (BraceGroup
          children: [
            (command.WhileUntil
              keyword: <Id.KW_While while>
              cond: (condition.Shell commands:[(C {<read>} {<fname>})])
              body: 
                (command.DoGroup
                  children: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:lname)
                          op: assign_op.Equal
                          rhs: {($ Id.VSub_DollarName '$fdname') ($ Id.VSub_DollarName '$fname')}
                          spids: [135]
                        )
                      ]
                    )
                    (C {<echo>} {(DQ <'<H3>'>)})
                    (C {<echo>} {<-n>} 
                      {(DQ <'<A HREF='> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>))}
                    )
                    (C {<echo>} {<-n>} {($ Id.VSub_DollarName '$lname')})
                    (C {<echo>} {<-n>} 
                      {(DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <'>'>)}
                    )
                    (C {<echo>} {<-n>} {($ Id.VSub_DollarName '$fname')})
                    (C {<echo>} {(DQ <'</A><BR>'>)})
                    (C {<echo>} {(DQ <'</H3>'>)})
                  ]
                )
            )
          ]
        )
      ]
      negated: F
    )
    (C {<echo>} {(DQ <'<HR>'>)})
    (C {<echo>} {(DQ <'<H6>'>)})
    (C {<echo>} {<Directory>} {<Generated>} {<at>} 
      {(command_sub left_token:<Id.Left_Backtick '`'> child:(C {<date>}))}
    )
    (C {<echo>} {(DQ <'</H6>'>)})
    (C {<echo>} {(DQ <'</HTML>'>)})
    (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<0>})
  ]
)