#!/usr/local/bin/gosh -q

(define (main args)
  (for-each
   (lambda (mod)
     (let ((file (string-join (%string-split-by-char mod #\.) "/")))
       (let loop ((ls *load-path*))
         (if (null? ls)
           (warn "module not found: ~S" mod)
           (let ((path (string-append (car ls) "/" file ".scm")))
             (if (sys-access path F_OK)
               (begin (display path) (newline))
               (loop (cdr ls))))))))
   (cdr args))
  0)