19bb5feb ​

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