f25fbde4 ​

let loc: (Int, Int)
let g: OList OList Color

let input = fill 9 (fill 9 black) |> grid loc g

let output = gmapg (λc. fill 2 (fill 2 c)) g