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

function entry : M

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