procedure toby(From, To, By)
    /By := 1    # Set By to 1 if omitted
	while From <= To do {
		suspend From
		From +:= By
		}
end