9 lines
135 B
Racket
9 lines
135 B
Racket
#lang typed/racket
|
|
|
|
(define-new-subtype T (make-T (List Integer)))
|
|
|
|
(: f : T -> Integer)
|
|
(define (f t)
|
|
(define x (car t))
|
|
(* x 2))
|