let pevlist evlist =
    List.iter 
      (fun e -> 
         logprint "Event: %s\n" (string_of_event e)) 
      evlist