--- from: http://rosettacode.org/wiki/Singular_value_decomposition