Appearance
let g: OList OList Color let input = flat [map (map (λc. black)) g, g] let output = flat [rev g, g]