.title
insertcanvasbelow
.definition
	canvas x y => -
.nl .spaces 8
	insert below current canvas