(define extract-specific-file
(command #:inputs (archive #:type File) (extractfile #:type string)
#:run "tar" "--extract" "--file" archive extractfile
#:outputs (extracted-file
#:type File
#:binding ((glob . "$(inputs.extractfile)")))))
(workflow ((archive #:type File) (extractfile #:type string))
(extract-specific-file #:archive archive #:extractfile extractfile))
