gistfile1.scm

(define (BFS a b prosm route queue G)
  (if (empty? queue)
      #f
      (let* ((wave (filter (lambda(x)(and (= x b) (= 0 (list-ref x prosm)))) (list-ref (- a 1) G))))
            (if (empty? wave)
                #f
                (if (belong-to-queue? b wave)
                    route
                    (map 
(define (main filename)  
  (define G (read-graf filename))
  (define (find-max-distance max i j)
  )