main :: IO ()
main = do
  [a, b] <- fmap (map read . words) getLine :: IO [Int]
  putStrLn $ if a < b then "K" else "S"