import Data.Char (toUpper)
import qualified System.IO.Strict  as S