[tigerii@fedora ~]$ rlwrap gosh gosh> (use file.util) #<undef> gosh> (define (myfind path) (cond ( (not (file-exists? path)) (print path " not found.")) ((file-is-directory? path) (print path) (for-each myfind (directory-list path :add-path? #t :</undef>…