0. #lang racket
1. (define (list-ref-keyed f x)
2.   (lambda(list-ref f) (lambda (x) (f x))))
3.  
4. (define get-third (list-ref-keyed (lambda (x) (+ x 1)) 1))
5. (get-third '(5 10 20))

=>

#<procedure>: arity mismatch;

the expected number of arguments does not match the given

number

expected: 2

given: 1

arguments...:

'(5 10 20)