y=grepl("(x)",x<-readLines("stdin")) invisible(lapply(x[y],function(x)eval(parse(text=paste(substr(x,1,1),"=",gsub("=","",gsub("^(.)","function",x)),"")),envir=.GlobalEnv))) write(unlist(lapply(x[!y],function(x)eval(parse(text=x)))),"",1)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).