(CommandList
  children: [
    (FuncDef
      name: usage
      body: 
        (BraceGroup
          children: [
            (SimpleCommand
              words: [
                {(echo)}
                {
                  (DQ ('Usage: ') 
                    (CommandSubPart
                      command_list: (CommandList children:[(C {(basename)} {($ VSub_Number '$0')})])
                      left_token: <Left_CommandSub '$('>
                      spids: [56 60]
                    ) (' file|device string')
                  )
                }
              ]
              redirects: [(Redir op_id:Redir_GreatAnd fd:-1 arg_word:{(2)} spids:[64])]
            )
            (C {(exit)} {(1)})
          ]
          spids: [49]
        )
      spids: [45 48]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:COLUMNS)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: (CommandList children:[(C {(tput)} {(cols)})])
                left_token: <Left_CommandSub '$('>
                spids: [76 80]
              )
            }
          spids: [75]
        )
      ]
      spids: [75]
    )
    (FuncDef
      name: progress
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DONE)
                  op: Equal
                  rhs: 
                    {
                      (ArithSubPart
                        anode: 
                          (ArithBinary
                            op_id: Arith_Slash
                            left: 
                              (ArithBinary
                                op_id: Arith_Star
                                left: 
                                  (ArithBinary
                                    op_id: Arith_Minus
                                    left: (ArithWord w:{($ VSub_Name '$COLUMNS')})
                                    right: (ArithWord w:{(Lit_Digits 2)})
                                  )
                                right: (ArithWord w:{($ VSub_Number '$1')})
                              )
                            right: (ArithWord w:{(Lit_Digits 100)})
                          )
                        spids: [94 109]
                      )
                    }
                  spids: [93]
                )
              ]
              spids: [93]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:TODO)
                  op: Equal
                  rhs: 
                    {
                      (ArithSubPart
                        anode: 
                          (ArithBinary
                            op_id: Arith_Minus
                            left: 
                              (ArithBinary
                                op_id: Arith_Minus
                                left: (ArithWord w:{($ VSub_Name '$COLUMNS')})
                                right: (ArithWord w:{(Lit_Digits 2)})
                              )
                            right: (ArithWord w:{($ VSub_Name '$DONE')})
                          )
                        spids: [113 120]
                      )
                    }
                  spids: [112]
                )
              ]
              spids: [112]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:DONE)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (Pipeline
                                children: [
                                  (C {(printf)} {(DQ ('%') (${ VSub_Name DONE) (s))})
                                  (C {(tr)} {(SQ <' '>)} {(Lit_Other '=')})
                                ]
                                negated: False
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [124 144]
                      )
                    }
                  spids: [123]
                )
              ]
              spids: [123]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:TODO)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (Pipeline
                                children: [
                                  (C {(printf)} {(DQ ('%') (${ VSub_Name TODO) (s))})
                                  (C {(tr)} {(SQ <' '>)} {(-)})
                                ]
                                negated: False
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [148 168]
                      )
                    }
                  spids: [147]
                )
              ]
              spids: [147]
            )
            (SimpleCommand
              words: [
                {(printf)}
                {
                  (DQ ('[') ($ VSub_Name '$DONE') ($ VSub_Name '$TODO') (']') 
                    (EscapedLiteralPart token:<Lit_EscapedChar '\\r'>)
                  )
                }
              ]
              redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(/dev/tty)} spids:[181])]
            )
          ]
          spids: [90]
        )
      spids: [86 89]
    )
    (FuncDef
      name: print
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:CLEAR)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(printf)} {(DQ ('%') (${ VSub_Name COLUMNS) (s))})]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [199 209]
                      )
                    }
                  spids: [198]
                )
              ]
              spids: [198]
            )
            (C {(printf)} 
              {(DQ ($ VSub_Name '$CLEAR') (EscapedLiteralPart token:<Lit_EscapedChar '\\r'>))}
            )
            (C {(echo)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [195]
        )
      spids: [191 194]
    )
    (AndOr
      children: [
        (C {(Lit_Other '[')} {($ VSub_Pound '$#')} {(-ne)} {(2)} {(Lit_Other ']')})
        (C {(usage)})
      ]
      op_id: Op_DAmp
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:DISK)
          op: Equal
          rhs: {(DQ ($ VSub_Number '$1'))}
          spids: [243]
        )
      ]
      spids: [243]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:STRING)
          op: Equal
          rhs: {(DQ ($ VSub_Number '$2'))}
          spids: [248]
        )
      ]
      spids: [248]
    )
    (C {(export)} {(Lit_VarLike 'LANG=') (C)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:CHUNK_SIZE)
          op: Equal
          rhs: 
            {
              (ArithSubPart
                anode: 
                  (ArithBinary
                    op_id: Arith_Star
                    left: 
                      (ArithBinary
                        op_id: Arith_Star
                        left: (ArithWord w:{(Lit_Digits 8)})
                        right: (ArithWord w:{(Lit_Digits 1024)})
                      )
                    right: (ArithWord w:{(Lit_Digits 1024)})
                  )
                spids: [279 286]
              )
            }
          spids: [278]
        )
      ]
      spids: [278]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: (C {(Lit_Other '[')} {(-b)} {(DQ ($ VSub_Name '$DISK'))} {(Lit_Other ']')})
              terminator: <Op_Semi ';'>
            )
          ]
          action: [
            (AndOr
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:SIZE)
                      op: Equal
                      rhs: 
                        {
                          (CommandSubPart
                            command_list: 
                              (CommandList
                                children: [
                                  (C {(/sbin/blockdev)} {(--getsize64)} {($ VSub_Name '$DISK')})
                                ]
                              )
                            left_token: <Left_CommandSub '$('>
                            spids: [305 311]
                          )
                        }
                      spids: [304]
                    )
                  ]
                  spids: [304]
                )
                (C {(exit)} {($ VSub_QMark '$?')})
              ]
              op_id: Op_DPipe
            )
          ]
          spids: [-1 301]
        )
      ]
      else_action: [
        (AndOr
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:SIZE)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (C {(stat)} {(--format)} {(Lit_Other '%') (s)} {(DQ ($ VSub_Name '$DISK'))})
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [326 337]
                      )
                    }
                  spids: [325]
                )
              ]
              spids: [325]
            )
            (C {(exit)} {($ VSub_QMark '$?')})
          ]
          op_id: Op_DPipe
        )
      ]
      spids: [322 345]
    )
    (AndOr
      children: [
        (C {(Lit_Other '[')} {($ VSub_Name '$SIZE')} {(-eq)} {(0)} {(Lit_Other ']')})
        (C {(exit)})
      ]
      op_id: Op_DAmp
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:CHUNKS)
          op: Equal
          rhs: 
            {
              (ArithSubPart
                anode: 
                  (ArithBinary
                    op_id: Arith_Slash
                    left: 
                      (ArithBinary
                        op_id: Arith_Minus
                        left: 
                          (ArithBinary
                            op_id: Arith_Plus
                            left: (ArithWord w:{($ VSub_Name '$SIZE')})
                            right: (ArithWord w:{($ VSub_Name '$CHUNK_SIZE')})
                          )
                        right: (ArithWord w:{(Lit_Digits 1)})
                      )
                    right: (ArithWord w:{($ VSub_Name '$CHUNK_SIZE')})
                  )
                spids: [362 373]
              )
            }
          spids: [361]
        )
      ]
      spids: [361]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:i) op:Equal rhs:{(0)} spids:[376])]
      spids: [376]
    )
    (While
      cond: [(Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)]
      body: 
        (DoGroup
          children: [
            (C {(progress)} 
              {
                (ArithSubPart
                  anode: 
                    (ArithBinary
                      op_id: Arith_Slash
                      left: 
                        (ArithBinary
                          op_id: Arith_Star
                          left: (ArithWord w:{($ VSub_Name '$i')})
                          right: (ArithWord w:{(Lit_Digits 100)})
                        )
                      right: (ArithWord w:{($ VSub_Name '$CHUNKS')})
                    )
                  spids: [389 396]
                )
              }
            )
            (AndOr
              children: [
                (C {(Lit_Other '[')} {(DQ ($ VSub_Name '$i'))} {(-ge)} {(DQ ($ VSub_Name '$CHUNKS'))} 
                  {(Lit_Other ']')}
                )
                (ControlFlow token:<ControlFlow_Break break>)
              ]
              op_id: Op_DAmp
            )
            (Pipeline
              children: [
                (SimpleCommand
                  words: [
                    {(dd)}
                    {(Lit_VarLike 'if=') ($ VSub_Name '$DISK')}
                    {(Lit_VarLike 'iflag=') (direct)}
                    {(Lit_VarLike 'conv=') (noerror)}
                    {(Lit_VarLike 'bs=') ($ VSub_Name '$CHUNK_SIZE')}
                    {(Lit_VarLike 'count=') (1)}
                    {(Lit_VarLike 'skip=') ($ VSub_Name '$i')}
                  ]
                  redirects: [(Redir op_id:Redir_Great fd:2 arg_word:{(/dev/null)} spids:[442])]
                )
                (SimpleCommand
                  words: [
                    {(grep)}
                    {(--binary-files) (Lit_Other '=') (text)}
                    {(-U)}
                    {(-F)}
                    {(DQ ($ VSub_Name '$STRING'))}
                  ]
                  redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(/dev/null)} spids:[466])]
                )
              ]
              negated: False
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:status)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (C {(echo)} 
                                {
                                  (BracedVarSub
                                    token: <VSub_Name PIPESTATUS>
                                    bracket_op: (WholeArray op_id:Lit_At)
                                    spids: [474 479]
                                  )
                                }
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [471 480]
                      )
                    }
                  spids: [470]
                )
              ]
              spids: [470]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:dd_status)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (Pipeline
                                children: [
                                  (C {(echo)} {($ VSub_Name '$status')})
                                  (C {(cut)} {(-f1)} {(-d)} {(SQ <' '>)})
                                ]
                                negated: False
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [484 500]
                      )
                    }
                  spids: [483]
                )
              ]
              spids: [483]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:re_status)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (Pipeline
                                children: [
                                  (C {(echo)} {($ VSub_Name '$status')})
                                  (C {(cut)} {(-f2)} {(-d)} {(SQ <' '>)})
                                ]
                                negated: False
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [504 520]
                      )
                    }
                  spids: [503]
                )
              ]
              spids: [503]
            )
            (AndOr
              children: [
                (C {(Lit_Other '[')} {($ VSub_Name '$dd_status')} {(-ne)} {(0)} {(Lit_Other ']')})
                (BraceGroup
                  children: [
                    (Sentence
                      child: 
                        (SimpleCommand
                          words: [{(echo)} {(DQ ('dd error'))}]
                          redirects: [(Redir op_id:Redir_GreatAnd fd:-1 arg_word:{(2)} spids:[543])]
                        )
                      terminator: <Op_Semi ';'>
                    )
                    (Sentence
                      child: (C {(exit)} {($ VSub_Name '$dd_status')})
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  spids: [535]
                )
              ]
              op_id: Op_DAmp
            )
            (AndOr
              children: [
                (C {(Lit_Other '[')} {($ VSub_Name '$re_status')} {(-eq)} {(0)} {(Lit_Other ']')})
                (BraceGroup
                  children: [
                    (Sentence
                      child: 
                        (C {(print)} 
                          {
                            (DQ ('dd if=') ($ VSub_Name '$DISK') (' iflag=direct bs=') 
                              ($ VSub_Name '$CHUNK_SIZE') (' count=1 skip=') ($ VSub_Name '$i') (' > disk_grep.') ($ VSub_Name '$i')
                            )
                          }
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  spids: [567]
                )
              ]
              op_id: Op_DAmp
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:i)
                  op: Equal
                  rhs: 
                    {
                      (ArithSubPart
                        anode: 
                          (ArithBinary
                            op_id: Arith_Plus
                            left: (ArithWord w:{($ VSub_Name '$i')})
                            right: (ArithWord w:{(Lit_Digits 1)})
                          )
                        spids: [587 592]
                      )
                    }
                  spids: [586]
                )
              ]
              spids: [586]
            )
          ]
          spids: [384 594]
        )
    )
    (C {(echo)})
  ]
)