ns =: [+[:(".,[:;([:}:".\)ns&.>[:}.<\.)]
T =: {{<:+/(#~(%:e.0 ns":)"0)*:>:i.y}}

NB. To calculate the result, run 'T 1e6'. It takes a while (30 min)