N, K = gets.split.map(&:to_i)
R, S, P = gets.split.map(&:to_i)
T = gets.strip

t = T
(K .. N).each{|i| t[i] = '*' if t[i - K] == t[i]}
ans = t.chars.inject(0) do |s, c|
  s + case c
      when 'r'; P
      when 's'; R
      when 'p'; S
      else    ; 0
      end
end
puts ans