(@problem 2) ;; ;; 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. ;; ;; 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)]))