Здравствуйте, Don Reba, Вы писали:

DR>

DR>SumLines("test.txt");
DR>

just for comparison :

import Control.Arrow
main = interact (lines >>> map sumline >>> unlines)
sumline = words >>> map (read::String->Int) >>> sum >>> show

недёшево "человеческое лицо" обходится, одним словом