Compactify count_change.erl