"expression"<-
function(...).Internal(expression(...), "S_dummy" = , F, -15)
"eval"<-
function(expression, local = TRUE,parent=NULL)
.Internal( eval(expression, local,parent), "S_dummy" = , T , -26)
"parse"<-
function(file = "", n = NULL,
	text = NULL, prompt = NULL,white=F)
	.Internal(parse(file,n, text,  prompt,white), "S_parse" )

".Program" <- expression(eval(parse(),local=0))
