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);