import Control.Applicative ((<$>)) import Control.Monad (replicateM) main :: IO () main = do n <- readLn solve <$> replicateM n readLn >>= mapM_ putStrLn solve :: [Int] -> [String] solve = map f where f x | x `mod` 40 == 0 = "ikisugi" | x `mod` 10 == 0 = "sugi" | x `mod` 8 == 0 = "iki" | otherwise = show $ x `div` 3