Make a sort-of working instance Arbitrary (JoinList (Sum Int) Char)