popen [concat /usr/bin/rpm2cpio  | /bin/cpio -iumd --quiet [concat ./usr/lib/rpm/GROUPS [expr {[info exists rpm-static] ? {} :
                       {./bin/rpm ./usr/lib/rpm/rpmrc ./usr/lib/rpm/macros}}]]]
if {[info exists rpm-static]} {
    popen [concat /usr/bin/rpm2cpio static | /bin/cpio -iumd --quiet ./usr/bin/rpm.static]
    popen [concat /usr/bin/rpm2cpio [file join [file dirname ] lib[file tail
               | /bin/cpio -iumd --quiet ./usr/lib/rpm/rpmrc ./usr/lib/rpm/macros
    link -sym ../usr/bin/rpm.static bin/rpm
}
    rpm:popen  [id user] --initdb
} {
    error "coudn't init rpm under (root): [perror]"