3FF6XAALNQZ7AFOEBJ2WJ3ZYZTG73GWAGJPMZPJGXNUBYUK5XIPAC
NOKOPRVXR4V57S3FQGD4JZEZWN4APFH2BNPKNX7B364I23NYD36AC
2Z6NDCF6FFB7GMSSSNBDRBADERI4AQSANOVA76EECCRLUKUEECKQC
DN2F55HBRBTHQAJDU4GOOGAEAXH5MIFPQSPEK2NNAPDJPZOOFJFQC
DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC
import Data.Functor.Compose
let totalFulfilled = sum . map (toNumber @Int . snd) $ res
let totalFulfilled = sum . fmap (toNumber @Int) $ Compose res