main :: IO() main = do i <- read <$> getLine :: IO Int let ans = "IGNITION" !! (i - 1) putChar ans