(* 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;
}