3af2c5a8 ​

let g: OList OList Color

let input = g

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