(set! (.#.event.name  (.#.event.direction  (.#.port.name  o)))
  (lambda _ (log-out "#.port.name ." "#.event.name " e)))