import Control.Monad(replicateM)
import qualified Data.Map.Strict as Map

main = do
  [n,m]<-map read.words<$>getLine
  sa <- Map.fromList<$>replicateM n (do
    [a,b] <- words<$>getLine
    pure(a,read b :: Int))
  tb <- replicateM m (do
    [a,b] <- words<$>getLine
    pure(a,read b :: Int))
  mapM_ (putStrLn.uncurry((.((' ' :).show)).(++)))$solve sa tb

solve = (Map.toAscList .) . foldl go
  where
    go ans (t,b) = Map.insertWith const t b ans