fn main
[
	var line := list_join(list_break_to_lines(read_lazy(h[0])), "");
	var steps := list_break(line, ',');
	var sum := list_map_fold_monoid(steps, lambda(s : bytes) : int [ return list_fold(uint8, uint8, 0, s, lambda(x y : uint8) [ return (x + y) * 17; ]); ]);
	write(h[1], ntos(sum) + nl);
]