7 lines
131 B
Racket
7 lines
131 B
Racket
#lang typed/racket/base
|
|
;; Iteratee
|
|
(define-type (Alias A D) (U #f (Main A D)))
|
|
|
|
(struct: (A D) Main
|
|
([resume : (Alias A D)])) ;
|