struct S {
	int f1, f2;
	char f3;
	double f4;
} v;

[int] foo( [int, int, double, S] x ) {
	printf("foo([%d, %d, %lg, {%d, %d, %c, %lg}])\n", x.0, x.1, x.2, x.3.[f1, f2, f3, f4]);
	int a, b;
	double c;
	S d;
	[a, b, c, d] = x;
	[int, int, double, S] X = x;
	printf("a=%d b=%d c=%lg d={%d, %d, %c, %lg}\n", a, b, c, d.[f1, f2, f3, f4]);
	printf("X=[%d, %d, %lg, {%d, %d, %c, %lg}]\n", X.0, X.1, X.2, X.3.[f1, f2, f3, f4]);
	return b;
}

[void] bar( [int, double, int] z ) {
	printf("bar([%d, %lg, %d])\n", z);
}

[void] baz( int a, double b, int c ) {
	printf("baz(%d, %lg, %d)\n", a, b, c);
}

[void] qux( [int, double] n, int m ) {
	printf("qux([%d, %lg], %d)\n", n, m);
}

[int, double x, int] quux() {
	return [3, 5.254, 4];
}
[[[int, double, int], [int, double]]] quuux() {
	return [1, 2, 3, 4, 5];
}

// forall(otype T | { T ?+?(T, T); })
// [T, T, T] ?+?([T, T, T] x, [T, T, T] y) {
// 	T x1, x2, x3, y1, y2, y3;
// 	[x1, x2, x3] = x;
// 	[y1, y2, y3] = y;
// 	return [x1+y1, x2+y2, x3+y3];
// }

int main() {
  [int, double, int] x = [777, 2.76, 8675];
  int x1 = 123, x3 = 456;
  double x2 = 999.123;

  printf("foo(...)=%d\n", foo(x1, x3, x2, (S){ 321, 654, 'Q', 3.14 }));

	// call function with tuple parameter using tuple variable arg
	bar(x);

	// call function with tuple parameter using multiple values
	bar(x1, x2, x3);

	// call function with multiple parameters using tuple variable arg
	baz(x);

	// call function with multiple parameters using multiple args
	baz(x1, x2, x3);

	// call function with multiple parameters, one of which is a tuple using tuple variable arg
	qux(x);

	// call function with multiple parameters, one of which is a tuple using multiple args
	qux(x1, x2, x3);

	// call function with multiple return values and assign into a tuple variable
	x = quux();
	printf("x=[%d, %lg, %d]\n", x);

	// call function with multiple return values and assign into a tuple expression
	[x1, x2, x3] = quux();
	printf("x1=%d x2=%lg x3=%d\n", x1, x2, x3);
}