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)