(* TEST: [-asc -tc] *)
type M : string -> integer
function entry : M

entry(s) := {
    [
        integer: x; integer: x
    ]
    return x;
}