gets;p eval$<.read.tr(" 
","+-")