3a)
(check-expect
 (add-perks "Steve Li" (list
                        (list 30 "I don't know what to write here")
                        (list 9 "or here"))
            short-perklist)
 (list
   (list "Peter Smith" (list
                        (list 83 "50,000 dollars campaign funding")
                        (list 32 "Public support by your company")
                        (list 13 "Opera tickets")))
   (list "Jennifer O'Brien" (list
                             (list 137 "Position on the Board of Directors")
                             (list 22 "Arranging photo-op with CEO")))
   (list "Steve Li" (list
                     (list 91 "Sponsored TV ads")
                     (list 56 "Invitation as keynote-speaker")
                     (list 30 "I don't know what to write here")
                     (list 9 "or here")
                     (list 5 "Business dinner with CTO")))))

(check-expect
 (add-perks "Jayce Jung" (list
                          (list 100 "I love food")
                          (list 20 "I love sleep"))
            empty)
 (list
  (list "Jayce Jung" (list
                       (list 100 "I love food")
                       (list 20 "I love sleep")))))

(check-expect
 (add-perks "Jayce Jung" (list
                          (list 100 "I love food")
                          (list 20 "I love sleep"))
            short-perklist)
  (list
   (list "Peter Smith" (list
                        (list 83 "50,000 dollars campaign funding")
                        (list 32 "Public support by your company")
                        (list 13 "Opera tickets")))
   (list "Jennifer O'Brien" (list
                             (list 137 "Position on the Board of Directors")
                             (list 22 "Arranging photo-op with CEO")))
   (list "Steve Li" (list
                     (list 91 "Sponsored TV ads")
                     (list 56 "Invitation as keynote-speaker")
                     (list 9 "Positive press release in his favour")
                     (list 5 "Business dinner with CTO")))
   (list "Jayce Jung" (list
                       (list 100 "I love food")
                       (list 20 "I love sleep")))))

3b)
(check-expect (perk-received "Jayce Jung" 12 short-perklist)
              'wristwatch)
(check-expect (perk-received "Peter Smith" 100 short-perklist)
              "50,000 dollars campaign funding")
(check-expect (perk-received "Steve Li" -10 short-perklist)
               'smear-campaign)
(check-expect (perk-received "Jayce Jung" -10 short-perklist)
              'smear-campaign)

3c)
(check-expect (add-action (list "Jayce Jung" 10 "Studied CS") short-ast)
              (make-actionnode "Amanda Byers" -5
              (list
              (list "Amanda Byers" -5 "Met with competitor"))
               empty
              (make-actionnode "Jayce Jung" 10
              (list
              (list "Jayce Jung" 10 "Studied CS")) empty empty)))
(check-expect (add-action (list "Aaron Hong" 10 "Plays video game") short-ast)
              (make-actionnode "Amanda Byers" -5
              (list
              (list "Amanda Byers" -5 "Met with competitor"))
              (make-actionnode "Aaron Hong" 10
              (list
              (list "Aaron Hong" 10 "Plays video game"))
              empty empty)
              empty))
(check-expect (add-action
              (list "Amanda Byers" -10
                    "Does nothing")
              short-ast)
              (make-actionnode "Amanda Byers" -15
              (list
              (list "Amanda Byers" -10
                    "Does nothing")
              (list "Amanda Byers" -5 "Met with competitor")) empty empty))

3d)
(check-expect (perk-list
              (make-actionnode "Amanda Byers" -5
              (list (list "Amanda Byers" -5 "Met with competitor"))
               empty
              (make-actionnode "Steve Li" 12
              (list (list "Steve Li" 12 "Plays golf with your second cousin"))
              (make-actionnode "Jennifer O'Brien" 25
              (list
              (list "Jennifer O'Brien" 30 "Pushed major contract for your
                     company")
              (list "Jennifer O'Brien" 5 "Mentioned your company on
                     morning TV")
              (list "Jennifer O'Brien" -10 "Questioned your leadership in
                     public"))
               empty
               empty)
               empty))
               short-perklist)

              (list
              (list "Amanda Byers" 'smear-campaign)
              (list "Jennifer O'Brien" "Arranging photo-op with CEO")
              (list "Steve Li" "Positive press release in his favour")))
(check-expect (perk-list
              (make-actionnode "Amanda Byers" -5
              (list (list "Amanda Byers" -5 "Met with competitor"))
               empty
              (make-actionnode "Steve Li" 12
              (list (list "Steve Li" 12 "Plays golf with your second cousin"))
              (make-actionnode "Jennifer O'Brien" 25
              (list
              (list "Jennifer O'Brien" 30 "Pushed major contract for your
                     company")
              (list "Jennifer O'Brien" 5 "Mentioned your company on
                     morning TV")
              (list "Jennifer O'Brien" -10 "Questioned your leadership in
                     public"))
               empty
              (make-actionnode "Peter Smith" 5
              (list
              (list "Peter Smith" -5 "Does nothing at home")
              (list "Peter Smith" 10 "Does something at home"))
               empty
               empty))
               empty))
               short-perklist)

              (list
              (list "Amanda Byers" 'smear-campaign)
              (list "Jennifer O'Brien" "Arranging photo-op with CEO")
              (list "Peter Smith" 'wristwatch)
              (list "Steve Li" "Positive press release in his favour")))
(check-expect (perk-list empty short-perklist) empty)