function(price, lambda, step = 1, l = 35, d = 3)
{
	options(warn = 1)
	n <- length(price)
	day <- rep(1:n, 1)
	w <- rep(1, (l + d))
	t <- 1
	while(t <= (n - l - d + 1)) {
		pom <- (t + l + d - 1)
		dday <- day[t:pom]
		pprice <- price[t:pom]
		plot(dday, pprice)
		lines(dday, pprice)
		lines(dday, l1ss(dday, pprice, w, lambda), col = 8, lwd = 6)
		print("press ENTER for next step")
		readline()
		t <- t + step
	}
	return(n)
}
