8d5021e8 ​

let g: OList OList Color

let input = g

let output = hcat [map rev g, g]
  |> λg. flat [rev g, g, rev g]