feca6190 ​

let cs: OList Color

let input = [cs]

let output = (len cs * (len (group id cs) - 1))
  |> λn. fill n (fill n black)
  |> rep1 (-1, 1) (map (λ(c, i). (-1, i, c)) (index cs))