words = [" ", "\'", ",", "-", ".", "?"]
words += %{ABCDEFGHIJKLMNOPQRSTUVWXYZ}.split("")
code = %w{101 000000 000011 10010001 010001 000001 100101 10011010 0101 0001 
        110 01001 10011011 010000 0111 10011000 0110 00100 10011001 10011110 
        00101 111 10011111 1000 00110 00111 10011100 10011101 000010 10010010 
        10010011 10010000}
n_code = %w{11010 11110 11100 11101 11011 11111 00000 00001 00010 00011 00100 
          00101 00110 00111 01000 01001 01010 01011 01100 01101 01110 01111 
          10000 10001 10010 10011 10100 10101 10110 10111 11000 11001}
while gets
  s = ""
  $_.split("").each do |w|
    s += code[words.find_index(w)]
  end
  sz = s.size%5
  s += "0"*((5-sz)%5)
  ret = ""
  (s.size/5).times do |i|
    ret += words[n_code.find_index(s[i*5,5])]
  end
  puts ret
end