Making a list monoid that has an applicative function to replace map