97999447 ​

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