import Data.Char
import Control.Arrow
main :: IO ()
main = putStrLn [f "BASIC"]
f :: String -> Char
f = chr . uncurry div . (sum &&& length) . map ord