13 lines
154 B
Plaintext
13 lines
154 B
Plaintext
(* TEST: [-asc -tc] *)
|
|
type M : string -> integer
|
|
|
|
function entry : M
|
|
|
|
entry(s) := {
|
|
[
|
|
integer: x;
|
|
character: x
|
|
]
|
|
return x;
|
|
}
|