main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  let f n x y = if x < y then n else f (n+1) ((x-y)/2) y
  putStrLn $ if even $ f 0 a b then "K" else "S"