(List
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS tw]} {[LIT_OTHER "+"]} {[LIT_CHARS pax]} {[LIT_CHARS for]} {[LIT_CHARS backup]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('command', {[LIT_CHARS bax]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('customize', {[LIT_CHARS ../lib/] [VarSub command] [LIT_CHARS /init]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('root', {[SQ ]}), ('arch_name', {[SQ ]}), ('arch_keep', {[SQ ]}), ('big_size', {[SQ ]}), ('big_magic_keep', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('name_skip', {[SQ ]}), ('path_skip', {[SQ ]}), ('reg_magic_skip', {[SQ ]}), ('src_name', {[SQ ]}), ('src_magic_skip', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ifs', {[VarSub IFS test_op=VS_TEST_HYPHEN {[LIT_CHARS "'\n"] [LIT_CHARS "\t '"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[LIT_OTHER ":"]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('path', {[VarSub PATH]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[VarSub ifs]})])
  (For dir [{[VarSub path]}])
    (If
      (Com {[LIT_CHARS test]} {[LIT_CHARS -f]} {[VarSub dir] [LIT_CHARS /] [VarSub customize]})
      (List
        (Com {[LIT_CHARS .]} {[VarSub dir] [LIT_CHARS /] [VarSub customize]})
        (Com {[LIT_CHARS break]})
      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('root', {[VarSub root test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'"] [LIT_SLASH /] [LIT_CHARS "'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('arch_name', {[VarSub arch_name test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'arch'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('arch_keep', {[VarSub arch_keep test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'bin|fun|lib'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('big_size', {[VarSub big_size test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS 5000000]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('big_magic_keep', {[VarSub big_magic_keep test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'mail'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('name_skip', {[VarSub name_skip test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'?(*.)(old|save|tmp)?(.*)|.*-cache'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('path_skip', {[VarSub path_skip test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'"] [LIT_SLASH /] [LIT_CHARS "dev|"] [LIT_SLASH /] [LIT_CHARS usr] [LIT_SLASH /] [LIT_CHARS local] [LIT_SLASH /] [LIT_CHARS ast] [LIT_SLASH /] [LIT_CHARS "ship'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('reg_magic_skip', {[VarSub reg_magic_skip test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'core|cql * index|history|TeX dvi'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('src_name', {[VarSub src_name test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'src'"]}]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('src_magic_skip', {[VarSub src_magic_skip test_op=VS_TEST_COLON_HYPHEN {[LIT_CHARS "'executable|object|(archive|shared) library'"]}]})])
  (Case to_match={[VarSub #]}, pat_word_list=[[{[LIT_OTHER "["] [LIT_CHARS 01] [LIT_OTHER "]"]}]]
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Usage: "][VarSub command][LIT_CHARS " delta base [dir ...]"]]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 2]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 2]})
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('delta', {[VarSub 1]})])
  (Com {[LIT_CHARS shift]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('base', {[VarSub 2]})])
  (Com {[LIT_CHARS shift]})
  (Case to_match={[VarSub #]}, pat_word_list=[[{[LIT_CHARS 0]}]]
    (Com {[LIT_CHARS set]} {[VarSub root]})
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dirs', {[SQ ]})])
  (While
    (Com {[LIT_OTHER ":"]})
    (List
      (Case to_match={[VarSub #]}, pat_word_list=[[{[LIT_CHARS 0]}]]
        (Com {[LIT_CHARS break]})
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dirs', {[DQ [VarSub dirs][LIT_CHARS " -d "][VarSub 1]]})])
      (Com {[LIT_CHARS shift]})
    )
  )
  (Pipeline
    (Com {[LIT_CHARS tw]} {[VarSub dirs]} {[LIT_CHARS -mH]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS "begin:\tint\tarch_bit = 1;\n"][LIT_CHARS "\tint\tsrc_bit = 2;\n"][LIT_CHARS "\tchar*\tm;\n"][LIT_CHARS "\n"][LIT_CHARS "sort:\tname;\n"][LIT_CHARS "\n"][LIT_CHARS "select:\tif (name == '"][VarSub name_skip][LIT_CHARS "')\n"][LIT_CHARS "\t\tstatus = SKIP;\n"][LIT_CHARS "\telse if (type == REG)\n"][LIT_CHARS "\t{\n"][LIT_CHARS "\t\tm = magic;\n"][LIT_CHARS "\t\tif (size > "][VarSub big_size][LIT_CHARS " && m != '*@("][VarSub big_magic_keep][LIT_CHARS ")*' ||\n"][LIT_CHARS "\t\t    m == '*@("][VarSub reg_magic_skip][LIT_CHARS ")*' ||\n"][LIT_CHARS "\t\t    (parent.local & src_bit) && m == '*@("][VarSub src_magic_skip][LIT_CHARS ")*')\n"][LIT_CHARS "\t\t\tstatus = SKIP;\n"][LIT_CHARS "\t}\n"][LIT_CHARS "\telse if (type == DIR)\n"][LIT_CHARS "\t{\n"][LIT_CHARS "\t\tlocal = (parent.local & src_bit);\n"][LIT_CHARS "\t\tif (dev != parent.dev || path == '"][VarSub path_skip][LIT_CHARS "' || (parent.parent.local & arch_bit) && name != '"][VarSub arch_keep][LIT_CHARS "')\n"][LIT_CHARS "\t\t\tstatus = SKIP;\n"][LIT_CHARS "\t\telse if (name == '"][VarSub arch_name][LIT_CHARS "')\n"][LIT_CHARS "\t\t\tlocal |= arch_bit;\n"][LIT_CHARS "\t\telse if (name == '"][VarSub src_name][LIT_CHARS "')\n"][LIT_CHARS "\t\t\tlocal |= src_bit;\n"][LIT_CHARS "\t}\n"][LIT_CHARS "\treturn 1;\n"]]})
    (Com {[LIT_CHARS pax]} {[LIT_CHARS -o]} {[DQ [LIT_CHARS "write ordered physical verbose file="][VarSub delta][LIT_CHARS " base="][VarSub base]]})
  )
)