method private for_each_led_light (f : led_light -> 'a) (port : int) : 'a list = List.map (function x, y -> f (super#get x y)) (self#port_to_positions port);