55 баллов, на C++.

Любимые геометрические фигуры Антона — правильные многогранники. Напомним, что правильных многогранников всего пять видов:


Тетраэдр. У тетраэдра 4 треугольных грани.

Куб. У куба 6 квадратных граней.

Октаэдр. У октаэдра 8 треугольных граней.

Додекаэдр. У додекаэдра 12 пятиугольных граней.

Икосаэдр. У икосаэдра 20 треугольных граней.

У Антона есть целая коллекция из n многогранников. Однажды ему стало интересно, сколько суммарно граней у всех фигур в его коллекции. Помогите Антону найти это число!


Входные данные

В первой строке входных данных находится целое число n (1 ≤ n ≤ 200 000) — количество многогранников в коллекции у Антона.


В следующих n строках входных данных находится по одной строке si — название i-го многогранника в коллекции Антона. Строка может иметь следующий вид:


«Tetrahedron» (без кавычек), если i-й многогранник в коллекции Антона — тетраэдр.

«Cube» (без кавычек), если i-й многогранник в коллекции Антона — куб.

«Octahedron» (без кавычек), если i-й многогранник в коллекции Антона — октаэдр.

«Dodecahedron» (без кавычек), если i-й многогранник в коллекции Антона — додекаэдр.

«Icosahedron» (без кавычек), если i-й многогранник в коллекции Антона — икосаэдр.

Выходные данные

Выведите одно целое число — суммарное число граней у всех многогранников в коллекции Антона.


Примеры:

Входные данные:

4

Icosahedron

Cube

Tetrahedron

Dodecahedron

Выходные данные:

42


Входные данные:

3

Dodecahedron

Octahedron

Octahedron

Выходные данные:

28


Примечание:

В первом примере у Антона есть один икосаэдр, один куб, один тетраэдр и один додекаэдр. У икосаэдра 20 граней, у куба — 6, у тетраэдра — 4 и, наконец, у додекаэдра — 12. Итого 20 + 6 + 4 + 12 = 42 грани.

Это паскаль попробуй на си перевести

var

a:string;

n,k,i:integer;

begin

readln(n);

for i:=1 to n do begin

readln(a);

case a[1] of

'T':k:=k+4;

'C':k:=k+6;

'O':k:=k+8;

'D':k:=k+12;

'I':k:=k+20;

end;

end;

writeln(k);

end.

var

a:string;

n,k,i:integer;

begin

readln(n);

for i:=1 to n do begin

readln(a);

case a[1] of

'T':k:=k+4;

'C':k:=k+6;

'O':k:=k+8;

'D':k:=k+12;

'I':k:=k+20;

end;

end;

writeln(k);

end.