(* TEST: [-tok] *) type main: string -> integer function entry: main entry(arg) := { return 0; }