In[]:=
(*APieceofPi3.14.24*)N[Pi,10000];​​Flatten[RealDigits[%]];​​a=ListPlay[%];​​AudioTimeStretch[a,Scaled[192]];//AudioTrim[%]
Out[]=
00:00
00:01
Data in Notebook
[Null]