;#!/run/current-system/profile/bin/guile -e main -s
#!/run/current-system/profile/bin/guile -s
!#

(use-modules
  (gnu packages)
  (guix packages)
  (srfi srfi-1)
  (srfi srfi-26))

(fold-packages
  (lambda (package _)
    (when (any (cut eq? <> (specification->package "clisp"))
               (map second (package-direct-inputs package)))
      (format #t "~a " (package-full-name package))))
  #t)

;(define (main input)
;  (display
;    (fold-packages
;      (lambda (package _)
;        (when (any (cut eq? <> (specification->package (cadr input)))
;                   (map second (package-direct-inputs package)))
;          (package-full-name package)))
;      #t)))
(newline)