n,k=gets.split.map(&:to_i)
pt=gets.split.map(&:to_i)
t=gets.chomp #s=>0 ,p=>1 ,r=>2


ans=[0]*n
n.times do |i|
    
    if t[i]=="s"
        t[i]=0
    elsif t[i]=="p"
        t[i]=1
    else
        t[i]=2
    end
    
    m=t[i]
    
    if i>=k && t[i-k]==t[i] && ans[i-k]>0
        #nothing
    else
    ans[i]=pt[m]
    end
end
p ans.inject(&:+)