main :: IO ()
main = interact $ unlines . solve . map read . tail . words

solve :: [Int] -> [String]
solve []     = []
solve (x:xs) = y : solve xs
    where
        y = if x `mod` 10 == 0 && x `mod` 8 == 0
                then "ikisugi"
                else if x `mod` 8 == 0
                        then "iki"
                        else if x `mod` 10 == 0
                                then "sugi"
                                else show $ x `div` 3