(begin (use-modules (guix pki) (gcrypt pk-crypto) (ice-9 rdelim)) (define keys (map (lambda (file) (call-with-input-file file (compose string->canonical-sexp read-string))) (quote ("/gnu/store/907qgxkmv7qz4ldvbpbavnqj92a9rn3h-non-guix.pub" "/gnu/store/mp9ynyafnfqxvg02q5x1n3hpv0vjqsvy-guix-1.4.0-35.a9239a7/share/guix/berlin.guix.gnu.org.pub" "/gnu/store/mp9ynyafnfqxvg02q5x1n3hpv0vjqsvy-guix-1.4.0-35.a9239a7/share/guix/bordeaux.guix.gnu.org.pub")))) (call-with-output-file ((@ (guile) getenv) "out") (lambda (port) (write-acl (public-keys->acl keys) port))))