method blink port =
    ignore (self#for_each_led_light (function led -> led#blink) port)