import Data.List

day :: [String]
day = ["SUN", "MON", "TUE", "WED", "WED", "THU", "FRI", "SAT"]

main = print =<< ((pure parse) <*> getLine)

readInt :: String -> Int
readInt = read

parse :: String -> Int
parse =  (^ 2) . readInt
