: loop
	head 10 + dup say sethead
	loop
;

3 setspeed
loop