;;

;; The following data design may have errors in it$.$ Please fix the error or

;; errors that you find. Any changes you make should preserve the existing

;; design intent. Again, change only the parts of the code you really need

;; to change.

;;

;; Your solution must include @htdd tag, @dd$-$template$-$rules tag, and a NOT

;; commented fn$-$for$-$site template.

;;

$($@htdd Site$)$

;; Site is one of:

;; $-$ "Vancouver"

;; $-$ "Okanagan"

;; $-$ "Robson"

;; $-"$CDM$"$

;; interp. a UBC site

;;

$($@dd$-$template$-$rules one$-$of

atomic$-$non$-$distinct

atomic$-$non$-$distinct

atomic$-$non$-$distinct

atomic$-$non$-$distinct$)$

$($define $($fn$-$for$-$site s$)$

$($cond $[($string$=?$ s "Vancouver"$)(...$ s$)]$

$[($string$=?$ s "Okanagan"$)(...$ s$)]$

$[($string$=?$ s "Robson"$)(...$ s$)]$

$[($string$=?$ s $"$CDM$")(...$ s$)]))$