.title
insertcanvasabove
.definition
	canvas x y => -
.nl .spaces 8
	insert above current canvas