3bdb4ada ​

input = fill #0 (fill #1 black) |> fold (λr. rect ((r.2 + 2 - 2 | r.2, r.3, r.2 + 2, r.4), r.1)) #2
output = fill 8v (fill #1 black) |> rect ((6v, #3.1, 8v, #3.2), #3.3) |> rect ((2v, #4.1, 4v, #4.2), #4.3) |> fold rect #5
(VInt, HInt, UList (Color, VInt, HInt, HInt), (HInt, HInt, Color), (HInt, HInt, Color), UList ((VInt, HInt, VInt, HInt), Color))
(8v, 30h, {(teal, 6v, 13h, 25h), (yellow, 2v, 1h, 29h)}, (13h, 25h, teal), (1h, 29h, yellow), {((7v, 24h, 7v, 24h), black), ((7v, 22h, 7v, 22h), black), ((7v, 20h, 7v, 20h), black), ((7v, 18h, 7v, 18h), black), ((7v, 16h, 7v, 16h), black), ((7v, 14h, 7v, 14h), black), ((3v, 28h, 3v, 28h), black), ((3v, 26h, 3v, 26h), black), ((3v, 24h, 3v, 24h), black), ((3v, 22h, 3v, 22h), black), ((3v, 20h, 3v, 20h), black), ((3v, 18h, 3v, 18h), black), ((3v, 16h, 3v, 16h), black), ((3v, 14h, 3v, 14h), black), ((3v, 12h, 3v, 12h), black), ((3v, 10h, 3v, 10h), black), ((3v, 8h, 3v, 8h), black), ((3v, 6h, 3v, 6h), black), ((3v, 4h, 3v, 4h), black), ((3v, 2h, 3v, 2h), black)})
(8v, 20h, {(orange, 6v, 8h, 18h), (blue, 2v, 2h, 10h)}, (8h, 18h, orange), (2h, 10h, blue), {((7v, 17h, 7v, 17h), black), ((7v, 15h, 7v, 15h), black), ((7v, 13h, 7v, 13h), black), ((7v, 11h, 7v, 11h), black), ((7v, 9h, 7v, 9h), black), ((3v, 9h, 3v, 9h), black), ((3v, 7h, 3v, 7h), black), ((3v, 5h, 3v, 5h), black), ((3v, 3h, 3v, 3h), black)})
(11v, 20h, {(teal, 9v, 16h, 20h), (yellow, 6v, 2h, 14h), (grey, 2v, 3h, 9h)}, (?, ?, ?), (?, ?, ?), ?)