-- general equation solver
-- solution of a system of equations by Cramers rule

cram(A,B,k)[i,j] = A[i,j] when jk, B[i] dim[count(B)]

solve(A,B)[j] = det(cram(A,B,j))/det(A)
