93b581b8 ​

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