72207abc ​

input = fill 3v (fill #0 black) |> fold (λr. rect ((2v, r.2, 2v, r.2), r.1)) #1
output = fill 3v (fill #0 black) |> fold (λr. rect ((2v, r.2, 2v, r.2), r.1)) #2
(HInt, UList (Color, HInt), UList (Color, HInt))
(29h, {(red, 1h), (green, 2h)}, {(green, 29h), (red, 1h), (red, 22h), (green, 16h), (red, 11h), (green, 7h), (red, 4h), (green, 2h)})
(19h, {(fuschia, 1h), (blue, 4h), (teal, 2h)}, {(fuschia, 1h), (blue, 16h), (teal, 11h), (fuschia, 7h), (blue, 4h), (teal, 2h)})
(19h, {(blue, 1h), (red, 2h)}, {(blue, 1h), (red, 16h), (blue, 11h), (red, 7h), (blue, 4h), (red, 2h)})
(29h, {(red, 1h), (teal, 4h), (blue, 2h)}, ?)