rewrote Event to use Lenses.