module Main where

import Data.Char (digitToInt)

doValidate = toInt . map readBin
toInt = foldl (\a x -> a * 2 + digitToInt x) 0
readBin 'F' = '0'
readBin 'L' = '0'
readBin _ = '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