84f2aca1 ​

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