;;;; A local shadowing an imported name (test/programs/shadow-pkg.flan).
;;;;
;;;; Nothing about this program is unusual; the package it imports is where the
;;;; shadowing is. What is asserted is that qualification stopped at the local:
;;;; 7 rather than the constant's 5, and 20 out of [assigned] with the
;;;; package's own [sink] still zero. A renamer that qualifies through a
;;;; binding produces no error anywhere — it silently reads and writes the
;;;; top-level name instead.

(import shd "shadow-pkg.flan")

(defn main [] i32
  (print (shd/shadowed)) (println "")
  (print (shd/assigned)) (println "")
  (print shd/sink) (println "")
  (print shd/limit) (println "")
  0)