main :: IO ()
main = interact $ solve . words

solve :: [String] -> String
solve [a, b] = "(" ++ a ++ b ++ a ++ ")/"