Problem:
与えられた変換表にもとづき，データを変換するプログラムを作成しなさい．

データに使われている文字は英字か数字で，英字は大文字と小文字を区別する．変換表に現れる文字の順序に規則性はない．

変換表は空白をはさんで前と後ろの 2 つの文字がある(文字列ではない)．変換方法は，変換表のある行の前の文字がデータに現れたら，そのたびにその文字を後ろの文字に変換し出力する．変換は 1 度だけで，変換した文字がまた変換対象の文字になっても変換しない．変換表に現れない文字は変換せず，そのまま出力する．

入力ファイルには，変換表（最初の n + 1 行）に続き変換するデータ（n + 2 行目以降）が書いてある． 1 行目に変換表の行数 n，続く n 行の各行は，空白をはさんで 2 つの文字，さらに続けて， n + 2 行目に変換するデータの行数 m，続く m 行の各行は 1 文字である． m ≤ 105 とする．出力は，出力例のように途中に空白や改行は入れず 1 行とせよ．

入力例

3

A a

0 5

5 4

10

A

B

C

0

1

4

5

a

b

A

　

出力例

aBC5144aba

入力

入力は複数のデータセットからなる．n が 0 のとき入力が終了する．データセットの数は 5 を超えない．

出力

データセットごとに、変換後の文字列を１行に出力する．

入力例

3
A a
0 5
5 4
10
A
B
C
0
1
4
5
a
b
A
3
A a
0 5
5 4
10
A
B
C
0
1
4
5
a
b
A
0

出力例

aBC5144aba
aBC5144aba

各データセットの出力（変換後の文字列）の後に改行を入れること．

上記問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in Haskell (judge verdict: WA: Presentation Error)

import Control.Monad
import Control.Applicative

type ConvertList = [(Char, Char)]
type Sentence    = String

main = do
    input <- getData []
    mapM_ putStrLn $ map convertStr input

getData :: [(ConvertList, Sentence)] -> IO [(ConvertList, Sentence)]
getData list = do
    n <- read<$>getLine
    if n == 0 then return list
              else do
                  convs <- map ((\[a,b] -> (a,b)).map head.words)<$>replicateM n getLine :: IO ConvertList 
                  m <- read<$>getLine
                  sentence <- concat<$>replicateM m getLine :: IO Sentence
                  getData (list ++ [(convs, sentence)])

convertStr :: (ConvertList, Sentence) -> Sentence
convertStr (_, [])      = []
convertStr (cl, (x:xs)) = convertChar cl x : convertStr (cl, xs)

convertChar cl x = case lookup x cl of
                     Just x' -> x'
                     Nothing -> x