{-# LANGUAGE LambdaCase #-}
module Main (main) where

import Data.List (sort)
import Numeric (readInt)

import Input


parse :: String -> Int
parse = fst . head . readInt 2 (`elem` "FBLR") (\case 'F' -> 0 ; 'B' -> 1 ; 'L' -> 0 ; 'R' -> 1 ; _ -> undefined)

main :: IO ()
main = do
    input <- map parse <$> getInput 5
    print (maximum input)
    print (fst (head (filter ((== 2) . snd) (zipWith (\a b -> (a+1, b-a)) (sort input) (tail (sort input))))))