set mat {
    {1 2 3 4}
    {4 5 6 7}
    {7 8 9 10}
    {10 11 12 13}
}
puts [::math::linearalgebra::det $mat]
puts [permanent $mat]