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