Competitive programming in Haskell: Monoidal accumulation {-# LANGUAGE LambdaCase #-} import Control.Arrow ( (>>>) ) import qualified Data.ByteString.Char8 as C import Data.ByteString.Char8 ( ...