95990924 ​

input = fill #0 (fill #1 black) |> fold (λr. rect ((r.1 + 1 - 1 | r.1, r.2 + 1 - 1 | r.2, r.1 + 1, r.2 + 1), grey)) #2
output = fill #0 (fill #1 black) |> fold rect #3
(VInt, HInt, UList (VInt, HInt), UList ((VInt, HInt, VInt, HInt), Color))
(10v, 10h, {(4v, 5h)}, {((6v, 7h, 6v, 7h), yellow), ((6v, 4h, 6v, 4h), green), ((4v, 5h, 5v, 6h), grey), ((3v, 7h, 3v, 7h), red), ((3v, 4h, 3v, 4h), blue)})
(10v, 10h, {(7v, 7h), (3v, 3h)}, {((9v, 9h, 9v, 9h), yellow), ((9v, 6h, 9v, 6h), green), ((7v, 7h, 8v, 8h), grey), ((6v, 9h, 6v, 9h), red), ((6v, 6h, 6v, 6h), blue), ((5v, 5h, 5v, 5h), yellow), ((5v, 2h, 5v, 2h), green), ((3v, 3h, 4v, 4h), grey), ((2v, 5h, 2v, 5h), red), ((2v, 2h, 2v, 2h), blue)})
(15v, 15h, {(12v, 10h), (9v, 5h), (5v, 9h), (3v, 4h)}, {((14v, 12h, 14v, 12h), yellow), ((14v, 9h, 14v, 9h), green), ((12v, 10h, 13v, 11h), grey), ((11v, 12h, 11v, 12h), red), ((11v, 9h, 11v, 9h), blue), ((11v, 7h, 11v, 7h), yellow), ((11v, 4h, 11v, 4h), green), ((9v, 5h, 10v, 6h), grey), ((8v, 7h, 8v, 7h), red), ((8v, 4h, 8v, 4h), blue), ((7v, 11h, 7v, 11h), yellow), ((7v, 8h, 7v, 8h), green), ((5v, 9h, 6v, 10h), grey), ((5v, 6h, 5v, 6h), yellow), ((5v, 3h, 5v, 3h), green), ((4v, 11h, 4v, 11h), red), ((4v, 8h, 4v, 8h), blue), ((3v, 4h, 4v, 5h), grey), ((2v, 6h, 2v, 6h), red), ((2v, 3h, 2v, 3h), blue)})
(15v, 15h, {(12v, 10h), (11v, 3h), (7v, 13h), (5v, 6h), (2v, 12h), (2v, 2h)}, ?)