6 lines
103 B
Racket
6 lines
103 B
Racket
#lang typed/racket/base
|
|
|
|
(let ()
|
|
(: f : (All (A) (A -> A)))
|
|
(define (f x) ((inst values A) x))
|
|
7) |