#lang racket

(define (Left val)
  (lambda (l r) (l val)))

(define (Right val)
  (lambda (l r) (r val)))

(displayln
 ((Right "lol") (const "") identity))