这段程序会在 P7127 的最后两个测试点 TLE.

import Control.Monad

main :: IO ()
main = do
    t <- readLn
    replicateM_ t $ do
        n <- readLn
        if n == 0
            then putStrLn "0"
            else let a = n
                     b = (n + 1) * 2
                     g = gcd a b
                 in putStrLn $ show (a `div` g) ++ "/" ++ show (b `div` g)