5614dbcf ​

let g: OList OList Color
let ps: UList (Int, Int)

let input = g
  |> gmapg (λc. fill 3 (fill 3 c))
  |> fold (λl. point l grey) ps

let output = g