main = do x <- readFile "/tmp/foo.txt"
	  y <- rList x
	  print (sum y)

rList :: String -> IO [Int]	  
rList = readIO