#av1 = create_averager(sin, 5, -1)

r= lscan(out, av1 , 0, 40, 10, 0.01)
plot(r.getReadable(0), title = "Data" )    
to_array(r.getReadable(0),'d')