pembertonLikes, pembertonDislikes :: Visnov Affinity ()
pembertonLikes = modify $ \ aff -> aff + 1
pembertonLikes, pembertonDislikes :: Visnov Affinity ()
pembertonLikes = modify $ \ aff -> aff + 1
pembertonLikes = modify $ \ aff -> aff + 1