68b67ca3 ​

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