define hwid 25
	set x=1,512
	set y=x*0
	set w=-1**x
	define N 512
	set x=1,$N
	do i=1,10 {
		set t=random($N)-0.5
		set y=y+t
	}
	set y=y/10
	window 1 2 1 2
	limits x y
	box
	connect x y


	window 1 2 1 1
	set z=x*0
	set y=y*w
	fft 1 y z r i
	set r=r*w
	set i=i*w
	set xt=x-257
	set xx=xt concat xt
	set yy=r concat i
	limits xx yy
!	limits -10 10 yy
	box
	connect xt r
	ctype red
	connect xt i
	ctype default