;;;; The call-site half of a bound written in another file.
;;;;
;;;; gen/largest is {:where (ordered? $t)}, and a [string] is not ordered. The
;;;; refusal has to arrive here, against the call that asked for the copy, and
;;;; it has to quote the clause — a message pointing into pkgs/gen/gen.flan
;;;; would be naming a line the caller did not write and cannot change.
(import gen "pkgs/gen")

(defn main [] i32
  (let [ss ["a" "b"]]
    (println (gen/largest (slice ss 0 2))))
  0)