#!/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)

#!/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) 

(for-each
 (match-lambda
  ("uuids"
   (print "uuids copied successfully"))
  ("maskImage"
   (print "maskImage copied successfully")))
 filenames)