fn main
[
	var numbers := map(list_break_to_lines(read_lazy(h[0])), ston);
	var sum := 0;
	for n in numbers do [
		for i := 0 to 2000 do [
			n xor= n shl 6;
			n and= 16777216 - 1;
			n xor= n shr 5;
			n and= 16777216 - 1;
			n xor= n * 2048;
			n and= 16777216 - 1;
		]
		sum += n;
	]
	write(h[1], ntos(sum) + nl);
]