UNB/ CS/ David Bremner/ teaching/ cs4613/ lectures/ lecture13/ bt5.rkt
#lang typed/racket
(define-type-alias BT (U mt node))
(struct mt ())
(struct node ([v : Number] [l : BT] [r : BT]))