% https://open.kattis.com/problems/haypoints
% 1s
% 1.9 Easy

% Picat

% 318 chars
import util.
main :-
    [MN|S] = read_file_lines(),
    [M,_] = MN.split(" ").map(to_int),
    Words = new_map([ W=Sal.to_int : Ws in S[1..M], [W,Sal] = Ws.split(" ")]),
    JobDesc = S[M+1..S.len].join(" ").split(".").map(strip).map(split),
    foreach(Job in JobDesc) println(sum([Words.get(W,0) : W in Job])) end.