#lang typed/racket/base (require/typed racket/base (values (All (a) (a -> a))))