[Haskell-beginners] Netwire and event accumulator