f25ffba3 ​

let g: OList OList Color

let input = flat [map (map (λc. black)) g, g]

let output = flat [rev g, g]