4 lines
No EOL
119 B
Text
4 lines
No EOL
119 B
Text
type s = C (int, unit -> s)
|
|
|
|
fun : int -> s
|
|
fromr (n : int) = C<> (n, (\(u : unit) -> fromr (n + 1) : unit -> s)) |