logNumber: produce a Writer value out of a number
multWithLog: using the Writer Monad with 'do notation'