path: root/hask-io/mini.hs

import qualified Data.ByteString.Lazy as B
main = B.getContents>>=print.show.f
       where f = B.foldl1' (+)