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?…