(AndOr OP_AND_IF
  (FunctionDef _larch []
    (List
      (= scope=<EAssignScope.LOCAL 0> flags=0 words=[{[LIT_CHARS cur]}, {[LIT_CHARS prev]}, {[LIT_CHARS words]}, {[LIT_CHARS cword]}] bindings=[])
      (AndOr OP_OR_IF
        (Com {[LIT_CHARS _init_completion]}        )
        (Com {[LIT_CHARS return]}        )
      )
      (If
        (DBracket {B? LOGICAL_BINARY_OR {B2 BINARY_INT_EQ {[VarSub cword]} {[LIT_CHARS 1]}} {B2 BINARY_STRING_EQUAL {[DQ [VarSub prev]]} {[LIT_CHARS -] [LIT_OTHER "*"]}}})
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('COMPREPLY', {[Array {[ComSub (Com {[LIT_CHARS compgen]} {[LIT_CHARS -W]} {[SQ <LIT_CHARS " \\\n"> <LIT_CHARS "            my-id my-default-archive register-archive whereis-archive archives \\\n"> <LIT_CHARS "            init-tree tree-root tree-version set-tree-version inventory \\\n"> <LIT_CHARS "            tagging-method tree-lint missing-tags add delete \\\n"> <LIT_CHARS "            move explicit-default set-manifest manifest check-manifest mkpatch \\\n"> <LIT_CHARS "            dopatch patch-report empty-patch make-archive make-category \\\n"> <LIT_CHARS "            make-branch make-version categories branches versions revisions \\\n"> <LIT_CHARS "            cat-archive-log archive-cache-revision archive-cached-revisions \\\n"> <LIT_CHARS "            archive-uncache-revision category-readme branch-readme \\\n"> <LIT_CHARS "            version-readme make-log logs add-log log-ls cat-log \\\n"> <LIT_CHARS "            log-header-field changelog log-for-merge merge-points \\\n"> <LIT_CHARS "            new-on-branch import commit get get-patch lock-branch \\\n"> <LIT_CHARS "            lock-revision push-mirror build-config update-config replay-config \\\n"> <LIT_CHARS "            record-config show-config config-history update replay delta-patch \\\n"> <LIT_CHARS "            star-merge tag prepare-branch finish-branch join-branch \\\n"> <LIT_CHARS "            whats-missing what-changed file-diffs pristines lock-pristine \\\n"> <LIT_CHARS "            my-revision-library library-find library-add library-remove \\\n"> <LIT_CHARS "            library-archives library-categories library-branches \\\n"> <LIT_CHARS "            library-versions library-revisions library-log library-file \\\n"> <LIT_CHARS "            touched-files-prereqs patch-set-web update-distributions \\\n"> <LIT_CHARS "            distribution-name notify my-notifier mail-new-categories \\\n"> <LIT_CHARS "            mail-new-branches mail-new-versions mail-new-revisions \\\n"> <LIT_CHARS "            notify-library notify-browser push-new-revisions sendmail-mailx">]} {[DQ [VarSub cur]]})]}]})])
      )
      (Com {[LIT_CHARS return]} {[LIT_CHARS 0]}      )
    )
  )
  (Com {[LIT_CHARS complete]} {[LIT_CHARS -F]} {[LIT_CHARS _larch]} {[LIT_CHARS -o]} {[LIT_CHARS default]} {[LIT_CHARS larch]}  )
)