import Data.ByteString.Lazy as BS
import System.IO

main = do
    h <- openFile "/dev/zero" ReadMode
    s <- BS.hGetContents h
    print $ BS.sum $ BS.take 40000000000 s
    hClose h