Write down a contract and a purpose statement for the program that translates an Event into a String:

Solution [PT 1]

;; event2string : Event -> String 
;; translate an event into a string 

Write down three function examples as tests (one per clause) for the function event-count, which counts how many characters are contained in all strings associated with a given Event.

Solution [PT 1]

(= (event-count 'hello) 0)
(= (event-count "world") 5)
(= (event-count (make-event 5 "a")) 1)