;;;; One middle of the diamond. Imports shape, and hands shape/Box back out.
;;;;
;;;; The alias is the *inner* one: this file says shape, and the finished
;;;; program calls the type shape/Box, not area/shape/Box. A package imported
;;;; through an intermediate arrives under the name its own importer chose.

(import shape "../shape")

(defn of [b shape/Box] i32 (* (.w b) (.h b)))

;;; A shape/Box made on this side of the diamond, to be read on the other.
(defn unit [] shape/Box (shape/box 3 2))