import Control.Applicative ((<$>))
import Data.Int (Int64)

canSWin :: Integral a => a -> a -> Bool
canSWin a b
    | a < b = False
    | d < 2 * b = True
    | otherwise = False
    where d = b - a

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