chk_double

using Printf

function open_file(fname)
    println("Open File: ", fname, "\n")
    open(fname) do fin
        lines = readlines(fin)
    end
end

function print_double(array)
    coord_dict = Dict()
    line_count = 1
    for line in array
        if occursin(r"(^\d*,\d*)(:.*$)", line)
            (coord, data) = split(line, ":")
            if coord ∈ keys(coord_dict)
                @printf "%3d: (%s) -> %s\n" line_count coord data
            else
                coord_dict[coord] = data
            end
        end
        line_count += 1     
    end
end
#-----main Program-----
for i in eachindex(ARGS)
    lines_data = open_file(ARGS[i])
    @time print_double(lines_data)