7468f01a ​

let g: OList OList Color
let yn: Int
let xn: Int
let p: (Int, Int)

let input = fill yn (fill xn black)
  |> grid p g

let output = map rev g