29c11459 ​

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