9 lines
129 B
Racket
9 lines
129 B
Racket
#lang typed/scheme
|
|
|
|
(define-type (T elem)
|
|
(U 'other a:empty))
|
|
|
|
(define-predicate a:list? (T Any))
|
|
|
|
(define-struct: a:empty ())
|