fn main
[
	var lines := list_break_to_lines(read_lazy(h[0]));
	var sum := 0;
	for line in lines do [
		var first := -1;
		var last := -1;
		for i in list_iterator(line) do [
			if line[i] >= '0', line[i] <= '9' then [
				var digit := line[i] - '0';
				if first = -1 then
					first := digit;
				last := digit;
			]
		]
		sum += first * 10 + last;
	]
	write(h[1], ntos(sum) + nl);
]