wxMaxima version: 13.4.0

Maxima version: 5.31.1

Maxima build date: 2013-09-24 09:49:12

Host type: i686-pc-mingw32

Lisp implementation type: GNU Common Lisp (GCL)

Lisp implementation version: GCL 2.6.8

NOte even when simplify it to:

(n:16,vs:makelist(2^(-n/2),i,1,2^n),t:float(copylist(vs)),t1:float(copylist(vs)),ang:float(asin(1/2^(n/2))), k:floor(float(((log(%pi)-log(2)-log(ang))/log(3)))),for i thru k+1 do(t[1]:-t[1],t:2*t1.t.t1-t,t1:copylist(t)) );

For the above n=16 still get lost socket connection