fn main
[
	var lines := list_break_to_lines(read_lazy(h[0]));
	var sum := 0;
	for l in lines do [
		var max1 := 0;
		var max1_pos := -1;
		for i := 0 to len(l) - 1 do [
			if l[i] > max1 then [
				max1 := l[i];
				max1_pos := i;
			]
		]
		var max2 := 0;
		for i := max1_pos + 1 to len(l) do [
			if l[i] > max2 then
				max2 := l[i];
		]
		sum += (max1 - '0') * 10 + max2 - '0';
	]
	write(h[1], ntos(sum) + nl);
]