lights_1(Delay):-
          repeat,
                  lights_g(Delay),
                  lights_a(Delay),
                  lights_r(Delay),
                  nl,
          fail.