b91ae062 ​

let g: OList OList Color

let input = g

let output = (λn. gmapg (λc. fill n (fill n c)) g) (len (group id (flat g)) - 1)