8 lines
124 B
Racket
8 lines
124 B
Racket
|
#lang typed/syndicate/roles
|
||
|
|
|
||
|
|
(require "struct-out.rkt")
|
||
|
|
|
||
|
|
(happy-days (happy 5))
|
||
|
|
|
||
|
|
(define classic : (Happy Int) (happy 100))
|