namespace;
include rt;

// --annotate adds type annotations inferred from declarations and calls.
// unresolved types remain unchanged, and annotations do not add conversions.
// tests/test.sh compares this program's output before and after annotation.
include std;
struct point { int x, y; };
let calls = 0;
let name = "annotate";
let table[4];
fn add(a, b) { calls = calls + 1; return a + b; }
fn scale(p, k) { p.x = p.x * k; p.y = p.y * k; return p; }
.u fresh(x, y) {
	let p = rt.new(point);
	p.x = x; p.y = y;
	return u*p;
}
fn twice(v) { return v + v; }
fn len3(s) { return rt.len_w(s) + 3; }
fn half(f) { return f / 2.0; }
fn main() {
	let i = 0, sum = 0, buf[6];
	let word_ = table, text = "abc";
	let pt = fresh(2, 3);
	let r = 1.5;
	while (i < 4) { table[i] = add(i, 10); sum = sum + table[i]; i++; }
	scale(pt, 3);
	buf[0] = twice(sum);
	rt.put_n(sum); rt.put_c(32); rt.put_n(pt.x + pt.y); rt.put_c(32); rt.put_n(buf[0]); rt.put_c(32);
	rt.put_n(len3(text)); rt.put_c(32); rt.put_n(calls); rt.put_c(32); rt.put_n(half(r) * 4); rt.put_c(10);
	return 0;
}