True cons/car/cdr in ruby

true.rb

def cons(x,y)
   ->(m) { m.call(x, y) }
end

def car(z)
  z.call ->(p, q) { p }
end

def cdr(z)
  z.call ->(p, q) { q }
end

pair = cons(1, "a")

puts car(pair) #=> 1
puts cdr(pair) #=> a