705a3229 ​

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 rect #3 |> fold (λr. rect (r, black)) #4
(VInt, HInt, UList (Color, VInt, HInt), UList ((VInt, HInt, VInt, HInt), Color), UList (VInt, HInt, VInt, HInt))
(12v, 12h, {(green, 11v, 10h), (teal, 3v, 4h)}, {((11v, 10h, 12v, 12h), green), ((1v, 1h, 3v, 4h), teal)}, {(12v, 11h, 12v, 12h), (1v, 1h, 2v, 3h)})
(14v, 15h, {(grey, 12v, 6h), (green, 5v, 10h)}, {((12v, 1h, 14v, 6h), grey), ((1v, 10h, 5v, 15h), green)}, {(13v, 1h, 14v, 5h), (1v, 11h, 4v, 15h)})
(12v, 10h, {(grey, 9v, 8h), (yellow, 5v, 7h), (teal, 4v, 3h)}, {((9v, 8h, 12v, 10h), grey), ((1v, 7h, 5v, 10h), yellow), ((1v, 1h, 4v, 3h), teal)}, {(10v, 9h, 12v, 10h), (1v, 8h, 4v, 10h), (1v, 1h, 3v, 2h)})
(11v, 8h, {(brown, 5v, 5h)}, {((1v, 5h, 5v, 8h), brown)}, {(1v, 6h, 4v, 8h)})
(11v, 16h, {(grey, 8v, 12h), (fuschia, 7v, 6h), (teal, 3v, 5h), (green, 2v, 14h)}, ?, ?)