fn main
[
	var input := list_break_to_lines(read_lazy(h[0]));
	var ranges := list_break(input[0], ',');
	var iids := [ 0 ];
	var iids_sum := 0;
	for r in ranges do [
		var rr := list_break(r, '-');
		var lo := ston(rr[0]);
		var hi := ston(rr[1]);
		while hi > iids[len(iids) - 1] do [
			var num := len(iids);
			var digits := len(ntos(num));
			var iid := num + num * ipower(10, digits);
			iids +<= iid;
		]
		for i := 0 to len(iids) do [
			if iids[i] > hi then
				break;
			if iids[i] >= lo then
				iids_sum += iids[i];
		]
	]
	write(h[1], ntos(iids_sum) + nl);
]