(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TOOLPATH', {[LIT_CHARS /sbin]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('DISKCOMMAND', {[LIT_CHARS sgdisk]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ZAPFLAGS', {[DQ [LIT_CHARS -Zog]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('GUARDFILE', {[LIT_CHARS /etc/ceph-disks-zapped]})])
  (If
    (Pipeline
      (Com {[LIT_CHARS dpkg]} {[LIT_CHARS -s]} {[LIT_CHARS gdisk]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT "2>"> 2),
        >
      )
      (Com {[LIT_CHARS grep]} {[LIT_CHARS -q]} {[LIT_CHARS Status.] [LIT_OTHER "*"] [LIT_CHARS installed]})
    )
    (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "gdisk is installed"]]})
    (ElseTrue)
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "install gdisk..."]]})
      (Com {[LIT_CHARS apt-get]} {[LIT_CHARS install]} {[LIT_CHARS --allow-unauthenticated]} {[LIT_CHARS -y]} {[LIT_CHARS gdisk]})
    )
  )
  (If
    (DBracket {B1 UNARY_STRING_z {[ComSub (Com {[LIT_CHARS which]} {[VarSub DISKCOMMAND]})]}})
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "can't find '"][VarSub DISKCOMMAND][LIT_CHARS "'"]]})
      (Com {[LIT_CHARS exit]})
    )
  )
  (If
    (DBracket {B! {B1 UNARY_FILE_f {[VarSub GUARDFILE]}}})
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('mounted_whole_disks', {[ComSub (Pipeline (Com {[LIT_CHARS df]} {[LIT_CHARS -kh]}) (Com {[LIT_CHARS cut]} {[LIT_CHARS -f]} {[LIT_CHARS 1]} {[LIT_CHARS -d] [SQ <LIT_CHARS " ">]}) (Com {[LIT_CHARS tail]} {[LIT_CHARS -n] [LIT_OTHER "+"] [LIT_CHARS 2]}) (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "^/dev/sd">]}) (Com {[LIT_CHARS sed]} {[SQ <LIT_CHARS "s/[0-9]/|/">]}) (Com {[LIT_CHARS sort]} {[LIT_CHARS -u]}) )]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('mounted_disk_regex', {[ComSub (For disk [{[VarSub mounted_whole_disks]}]) (Com {[LIT_CHARS echo]} {[LIT_CHARS -n]} {[VarSub disk]}) )]})])
      (For disk [{[ComSub (Com {[LIT_CHARS ls]} {[LIT_CHARS /dev/sd] [LIT_OTHER "["] [LIT_CHARS a-z] [LIT_OTHER "]"]})]}])
        (If
          (Pipeline!
            (Com {[LIT_CHARS echo]} {[DQ [VarSub disk]]})
            (Com {[LIT_CHARS egrep]} {[LIT_CHARS -q]} {[DQ [VarSub mounted_disk_regex transform_ops=[Slice {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 0]}} {A1 NODE_UNARY_MINUS {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 1]}} }]]]})
          )
          (List
            (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "#### Overwriting "][VarSub disk][LIT_CHARS " with "][VarSub DISKCOMMAND][LIT_CHARS " "][VarSub ZAPFLAGS]]})
            (Com {[VarSub TOOLPATH] [LIT_CHARS /] [VarSub DISKCOMMAND]} {[VarSub ZAPFLAGS]} {[VarSub disk]})
          )
          (ElseTrue)
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "#### Skipping mounted disk "][VarSub disk]]})
        )
      )
    )
    (ElseTrue)
    (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "disks look zapped already"]]})
  )
  (Com {[LIT_CHARS touch]} {[LIT_CHARS /etc/ceph-disks-zapped]})
)