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

function entry : M

entry(s) := {
    return 0;
}