Problem:
博士の暗号

博 士 : ?D-C'KOPUA

ピーター : どうしたんですか、デビッド博士? わけのわからないことを叫ぶのにはもう慣れましたが、
今日は文章にすらなっていませんよ。

博 士 : ほれ。

ピーター : なんですか? この表は......ああ、予選の問題にこんなのがありました。表を使って文字を置き換え
ると文字数が減るんですよね。まさか予選と本選で同じ問題を出して手を抜こうって気じゃないでし
ょうね。

博 士 : 逆じゃよ。

ピーター : 逆? なるほど、今度は短くした文字列を元に戻そうって問題ですか。ということは「?D-C'KOPUA」の
文字を、この表を使って「文字」から「符号」に置きかえるんですね......できましたよ。

11111 00011 11101 00010 11110 01010 01110 01111 10100 00000

博 士 : うむ。次はこれじゃ。

ピーター : そうそう、こんな表もありましたね。これを逆に使うんだから「符号」から「文字」に置き換えればいい
んですね。でも、最初は「11111」ですが表にありませんよ?

博 士 : そういうときは、もっと短くするか、後ろとつなげるかしてみるのだよ。

ピ ー タ ー : じゃあ短くして......あ、 「111」ならあります。じゃあ最初は「P」ですね。そうすると残りは「11」ですが、
これはぴったり合うのがないから次の「00011」から 1 文字借りて「110」にすればいいんですね。

博 士 : そうそう。つまり「E」だね。

ピ ー タ ー : それで残るのが「0011」なので、これも次から借りて「00111」にして「T」と......。全部できました。最
後の「0000」は捨てちゃえばいいんですよね?

博 士 : そうじゃ、よろしい。次はこれじゃ。

?D-C'?-C'-LMGZN?FNJKN- WEYN?P'QMRWLPZLKKTPOVRGDI

博 士 : さらにこれじゃ。

?P'QNPY?IXX?IXXK.BI -G?R'RPP'RPOVWDMW?SWUVG'-LCMGQ

博 士 : 仕上げにこうじゃ。

?P'QMDUEQ GADKOQ ?SWUVG'-LCMG?X?IGX,PUL.?UL.VNQQI

ピ ー タ ー : しっかし面倒だなあ。博士、今度は自分でプログラムを作って下さいよ。

ということで、博士のかわりに、上の文章を置き換えるプログラムを作成してください。

Input

複数のデータセットが与えられます。各データセットとして、１つの文字列（表に含まれる文字からなる 200 文字以下の文字列）が１行に与えられます。入力の終わりまで処理してください。データセットの数は 200 を超えません。

Output

各データセットごとに、変換後の文字列を１行に出力してください。

Sample Input

?D-C'KOPUA

Output for the Sample Input

PETER POTTER

Solution in Ruby (judge verdict: Wrong Answer)

$encode = {
  "A" => "00000",
  "B" => "00001",
  "C" => "00010",
  "D" => "00011",
  "E" => "00100",
  "F" => "00101",
  "G" => "00110",
  "H" => "00111",
  "I" => "01000",
  "J" => "01001",
  "K" => "01010",
  "L" => "01011",
  "M" => "01100",
  "N" => "01101",
  "O" => "01110",
  "P" => "01111",
  "Q" => "10000",
  "R" => "10001",
  "S" => "10010",
  "T" => "10011",
  "U" => "10100",
  "V" => "10101",
  "W" => "10110",
  "X" => "10111",
  "Y" => "11000",
  "Z" => "11001",
  " " => "11010",
  "." => "11011",
  "," => "11100",
  "-" => "11101",
  "'" => "11110",
  "?" => "11111",
}

$decode = {
  "101"      => " ",
  "000000"   => "'",
  "000011"   => ",",
  "10010001" => "-",
  "010001"   => ".",
  "000001"   => "?",
  "100101"   => "A",
  "10011010" => "B",
  "0101"     => "C",
  "0001"     => "D",
  "110"      => "E",
  "01001"    => "F",
  "10011011" => "G",
  "010000"   => "H",
  "0111"     => "I",
  "10011000" => "J",
  "0110"     => "K",
  "00100"    => "L",
  "10011001" => "M",
  "10011110" => "N",
  "00101"    => "O",
  "111"      => "P",
  "10011111" => "Q",
  "1000"     => "R",
  "00110"    => "S",
  "00111"    => "T",
  "10011100" => "U",
  "10011101" => "V",
  "000010"   => "W",
  "10010010" => "X",
  "10010011" => "Y",
  "10010000" => "Z",
}

#$decode = $decode.sort{|a,b|a[0].size<=>b[0].size}.reverse

def ex s
  a = ""
  s.chars do |c|
    a << $encode[c]
  end
  b = ""
  loop do
    f = true
    $decode.each do |k, v|
      if a.index(k) == 0
        b << v
        a[0, k.size] = ""
        f = false
        break
      end
    end
    break if f
  end
  return b
end

$stdin.each do |input|
  p ex(input.strip)
end