#include "std/io.toc";
#include "std/mem.toc";


arr_add ::= fn(t ::=, a : &Arr(t), x : t) {
	if a.len >= a.cap {
		a.cap = a.cap * 2 + 2;
		new_data := news(t, a.cap);
		for i := 0..a.len-1 {
			new_data[i] = a.data[i];
		}
		a.data = new_data;
	}
	a.data[a.len] = x;
	a.len += 1;
};

square ::= fn(t ::=, x : t) t {
	a : Arr(t);
	for i := 1,2..2*x-1 {
		arr_add(&a, i);
	};
	sum := 0 as t;
	for i := 0..a.len-1 {
		sum += a.data[i];
	};
	return sum;
};


ArrInt ::= Arr(int);

inc ::= fn(t ::=, x : t) t {
	return x + 1;
};

main ::= fn() {
	arr : ArrInt;
	farr : Arr(float);
	for i := 1..100 {	
		arr_add(&arr, inc(square(i)));
		arr_add(&farr, inc(square(i as float)));
	}
	for i := 0..arr.len - 1 {
		puti(arr.data[i]);
	}
	for i := 0..farr.len - 1 {
		puti(farr.data[i] as int);
	}
};

Arr ::= struct (t :: Type) {
	data: []t;
	len, cap: int;
};