(* TEST: [-asc -tc -cg -ir] *)

#include "std.alpha"
(* Standard Alpha Library - Provided by Carl *)

type string: 1 -> character
function entry: string2integer


type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]

type T2: rec -> integer
type T: integer -> integer
type main: string -> integer
function entry: main
function bar: T2
function ahh: T

ahh (a) := {
    a := printInteger(a);
    return -1;
}

bar (a, b, c,d,e,f,g) := {
    a :=  printInteger(g);
    return b;
}

entry (arg) := {
    [integer:x; integer:y; integer: result]

    result := bar(1,2,3,4,5,6,7);
    return 1;
}