n, k = gets.split.map(&:to_i)
r, s, p = gets.split.map(&:to_i)
t = gets.chomp
ans = 0
n.times do |i|
  t[i + k] = 'x' if t[i] == t[i + k] && i < n - k
  if t[i] == 'r'
    ans += p
  elsif t[i] == 's'
    ans += r
  elsif t[i] == 'p'
    ans += s
  end
end
puts ans