guile << "EOF2"
(use-modules (ice-9 slib))
(load "/usr/share/slib/mklibcat.scm")
(require 'new-catalog)
(quit)
EOF2