(command.CommandList
  children: [
    (command.ShFunction
      name: getpassword
      body: 
        (BraceGroup
          children: [
            (command.WhileUntil
              keyword: <Id.KW_Until until>
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<Id.Lit_LBracket '['>} {(DQ ($ Id.VSub_DollarName '$password'))} 
                          {<Id.Lit_Equals '='>} {(DQ ($ Id.VSub_DollarName '$rpassword'))} {<-a>} {<-n>} {(DQ ($ Id.VSub_DollarName '$password'))} 
                          {<Id.Lit_RBracket ']'>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              body: 
                (command.DoGroup
                  children: [
                    (command.Sentence
                      child: 
                        (C {<read>} {<-s>} {<-p>} 
                          {(DQ <'Enter a password for user \''> ($ Id.VSub_Number '$1') <'\' : '>)} {<password>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                    (command.Simple
                      words: [{<echo>}]
                      redirects: [(redir op:<Id.Redir_GreatAnd '>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                      do_fork: T
                    )
                    (command.Sentence
                      child: 
                        (C {<read>} {<-s>} {<-p>} 
                          {(DQ <'Reenter password for user \''> ($ Id.VSub_Number '$1') <'\' : '>)} {<rpassword>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                    (command.Simple
                      words: [{<echo>}]
                      redirects: [(redir op:<Id.Redir_GreatAnd '>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                      do_fork: T
                    )
                  ]
                )
            )
            (C {<echo>} {(DQ ($ Id.VSub_DollarName '$password'))})
          ]
        )
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:pw)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (C {<getpassword>} 
                    {
                      (DQ 
                        (braced_var_sub
                          token: <Id.VSub_Number 1>
                          suffix_op: 
                            (suffix_op.Unary
                              tok: <Id.VTest_ColonHyphen ':-'>
                              arg_word: {<blah>}
                            )
                        )
                      )
                    }
                  )
              )
            }
          spids: [114]
        )
      ]
    )
    (C {<echo>} {(DQ <'password is \''> ($ Id.VSub_DollarName '$pw') <'\''>)})
  ]
)