module Main where

import Data.Char (digitToInt)
import Utils (binaryToInt)

doValidate = binaryToInt . map readBin
readBin s | s `elem` "FL" = '0'
          | otherwise = '1'

main :: IO ()
main = do
    n <- lines <$> readFile "input/05"
    let valids = map doValidate n
        ans1 = maximum valids
    print ans1
    print $ sum [minimum valids .. ans1] - sum valids