apple-0.1.0.0: test/data/gen.apple

\x.\y. gen. (x,y) [{a⟜x->1;g⟜x->2;((a+g)%2,√(a*g))}] 6