Code:
alias mp3dur tokenize 46 $calc($1 /1000) | return $gmt($1,$iif($1 > 3599,H:) $+ nn:ss)

//echo -a $mp3dur($sound($findfile(D:\Energy\Currents\,*.mp3,1)).length)
//echo -a $mp3dur($insong.length)