main() {
	nopipe();
	pipe();
}

nopipe() {
	local s = strdup("yo comment cava\n");
	write(s);
	stoupper(s);
	write(s);
}

pipe() => strdup("coucou le monde\n") |> write |> stoupper |> write;

write(s) {
	local o = s;
	loop {
		if ([s] == 0)
			return o;
		wrt [s];
		s = s + 1;
	}
}

strlen(s) {
	local len = 0;
	loop {
		if ([s + len] == 0)
			return len;
		len = len + 1;
	}
}

strdup(s) => malloc(strlen(s) + 1) |> strcpy(s);

strcpy(dst, src) {
	local i = 0;
	loop {
		[dst + i] = [src + i];
		if ([src + i] == 0)
			return dst;
		i = i + 1;
	}
}

stoupper(s) {
	local o = s;
	loop {
		if ([s] == 0)
			return o;
		[s] = [s] - ([s] >= 'a' & [s] <= 'z') * 32;
		s = s + 1;
	}
}

define HEAP_SIZE = 4096;
global heap[HEAP_SIZE] = 0x69;
global heap_size = 0;
malloc(n) {
	local p = heap + heap_size;
	heap_size = heap_size + n;
	if (heap_size > 4096) {
		write("malloc error: heap is full\n");
		return 0;
	}
	return p;
}