let cons = (a, b) => (pick) => ({1: a, 2: b}[pick]);  
let car = (x) => x(1);  
let cdr = (x) => x(2);  

What if we could build pairs out of nothing at all?