99fa7670 ​

input = fill #0 (fill #1 black) |> fold (λr. rect ((r.2, r.3, r.2, r.3), r.1)) #2
output = #3
(VInt, HInt, UList (Color, VInt, HInt), OList OList Color)
(6v, 6h, {(green, 4v, 2h), (red, 2v, 3h)}, [[black, black, black, black, black, black], [black, black, red, red, red, red], [black, black, black, black, black, red], [black, green, green, green, green, green], [black, black, black, black, black, green], [black, black, black, black, black, green]])
(3v, 3h, {(fuschia, 2v, 2h)}, [[black, black, black], [black, fuschia, fuschia], [black, black, fuschia]])
(6v, 6h, {(grey, 5v, 4h), (teal, 2v, 2h)}, [[black, black, black, black, black, black], [black, teal, teal, teal, teal, teal], [black, black, black, black, black, teal], [black, black, black, black, black, teal], [black, black, black, grey, grey, grey], [black, black, black, black, black, grey]])
(7v, 5h, {(fuschia, 6v, 3h), (orange, 4v, 2h), (teal, 2v, 3h)}, [[black, black, black, black, black], [black, black, teal, teal, teal], [black, black, black, black, teal], [black, orange, orange, orange, orange], [black, black, black, black, orange], [black, black, fuschia, fuschia, fuschia], [black, black, black, black, fuschia]])
(7v, 8h, {(teal, 1v, 4h), (red, 5v, 6h), (orange, 3v, 3h)}, ?)