import Data.List (foldr1) import Control.Monad (guard, replicateM) main = do l <- replicateM 3 $ fmap (read :: String -> Integer) getLine let num = foldr1 lcm l l' = map (num `div`) l den = foldr1 gcd $ do i <- [0..2] j <- [0..2] guard $ i /= j return $ l' !! i - l' !! j g = gcd num den putStrLn $ show (num `div` g) ++ "/" ++ show (den `div` g)