title <- function(main=NULL, sub=NULL, xlab=NULL, ylab=NULL, ...)
	.Internal(title(
		as.character(main),
		as.character(sub),
		as.character(xlab),
		as.character(ylab),
		...
	))
