#!/usr/bin/env chicken                                                                                                                                                                                                                         
(use posix files matchable)                                                                                                                                                                                                                    
                                                                                                                                                                                                                                               
(file-copy "uuids.csv" "/tmp/uuids.csv")                                                                                                                                                                                                       
(file-copy "maskImage.png" "/tmp/maskImage.png")                                                                                                                                                                                               
                                                                                                                                                                                                                                               
(define glob-list (glob "/tmp/*"))                                                                                                                                                                                                             
(define filenames (map pathname-file glob-list))                                                                                                                                                                                               
                                                                                                                                                                                                                                               
(for-each                                                                                                                                                                                                                                      
 (lambda (filename)                                                                                                                                                                                                                            
   (match filename                                                                                                                                                                                                                             
          ( "uuids"                                                                                                                                                                                                                            
            (print "uuids copied successfully"))                                                                                                                                                                                               
          ( "maskImage"                                                                                                                                                                                                                        
            (print "maskImage copied successfully"))))                                                                                                                                                                                         
                                                                                                                                                                                                                                               
 filenames)