(define-module (my top)
  #:export (from-top))

(define (from-top)
  (let ((here (current-filename)))
    (format #t "top: ~s~%"
            (string-append (dirname here) here))))