import Data.Int (Int64)

solve :: (Integral a, Show a) => a -> String
solve x
    | mod x 8 == 0 && mod x 10 == 0 = "ikisugi"
    | mod x 8 == 0 = "iki"
    | mod x 10 == 0 = "sugi"
    | mod x 3 == 0 = show $ div x 3
    | otherwise = "korewa-naiyaro"

readInt64 :: String -> Int64
readInt64 = read

main :: IO ()
main = interact $ unlines . fmap (solve . readInt64) . tail . lines