94f9d214 ​

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

let input = flat [map (map (λb. if b green black)) g1, map (map (λb. if b blue black)) g2]

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