e345f17b ​

let g1: OList OList Bool
let g2: OList OList Bool

let input = hcat [map (map (λb. if b fuschia black)) g1, map (map (λb. if b grey black)) g2]

let output = zip (zip (λa. λb. if (a || b) black yellow)) g1 g2