function dowork(A)
    n=size(A)[1]
    println("The dimension is $n")
    display(A)
end

open("prog1c.dat","r") do fp
    i=0
    while true
        i+=1
        a=readline(fp)
        if a==""
            break
        end
        d=parse(Int,a)
        A=zeros(d,d)
        for i=1:d
            a=readline(fp)
            r=split(a)
            s=(x->parse(Float64,x)).(r)
            A[i,:]=s
        end
        println("Matrix number $i")
        dowork(A)
        a=readline(fp)
    end
end