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

function entry : string2int

entry(arg) := {
    [ integer: i; integer: sum ]
    sum := 0;
    i := 0;
    while (i < 10) {
        sum = sum + i;
        i := i + 1;
    }
    return 0;
}