017c7c7b ​

let g: OList OList Color

let input = flat [g, g]
  |> gtake (1, 1, 6, 3)

let output = flat [g, g, g]
  |> gtake (1, 1, 9, 3)
  |> map (map (λc. if (c == blue) red c))