let k = \ (x, y) -> x