import Control.Monad
import Data.Char
import Data.List
import Data.Ord
import Data.Ratio

main :: IO ()
main = do
    n <- readLn
    as <- replicateM n $ map read . words <$> getLine
    mapM_ putStrLn $ map (unwords . map show) . reverse $ sortBy (comparing (\[a, b] -> a % b)) as