e4075551 ​

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