let getcol (() : unit) : color =
         let l_color = [blue_light ; clicol ; red ; orange ; `Yellow ; violet_light ; `Green ; blue ] in
        index_col := (((!index_col)+1) mod 8);
        List.nth l_color (!index_col);