‰ ghc -e 'interact $ (show :: Int -> String) . sum . map ((\x -> if head x == '\''#'\'' then 0 else read x) . head . words) . lines' < ~/vdoc/weight
15907

И вроде бы всё незаменимое :(
Еды на четыре дня, воды на сутки, газа на две недели.