import qualified Data.ByteString.Char8 as B main = do t1 <- B.getLine t2 <- B.getLine let eye = [(B.unpack t1) !! 0] let mug = [(B.unpack t2) !! 0] putStr "(" putStr eye putStr mug putStr eye putStrLn ")/"