listplot abs(fourier {1, 4, 2, 0, 3, 2})