7 lines
104 B
Racket
7 lines
104 B
Racket
|
|
#lang typed/scheme/base
|
|
(: f (Integer -> (All (X) (X -> X))))
|
|
(define (f x)
|
|
(add1 x)
|
|
(lambda (x) x))
|