;;;; A file loaded into a session with no main: a generic and a plain function.
(defn biggest [xs [$t]] $t
  {:where (ordered? $t)}
  (let [m (at xs 0)]
    (dotimes [i (length xs)]
      (set m (max m (at xs i))))
    m))

(defn twice [n i64] i64 (* 2 n))