ba26e723 ​

let g: OList OList Color

let input = g

let output = g
  |> hview
  |> index
  |> map (λ(r, i). map (map (λc. if (c != black && i % 3 == 1) fuschia c)) r)
  |> hcat