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