d89b689b ​

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