#!/usr/bin/perl -w

use v5.36;
use strict;
use experimental 'multidimensional';

my $sum;
while (<>) {
	chomp;
	$sum += 3 if /Y/;
	$sum += 6 if /Z/;

	$sum += 3 if /A X/;
	$sum += 1 if /A Y/;
	$sum += 2 if /A Z/;

	$sum += 1 if /B X/;
	$sum += 2 if /B Y/;
	$sum += 3 if /B Z/;

	$sum += 2 if /C X/;
	$sum += 3 if /C Y/;
	$sum += 1 if /C Z/;
}

say $sum;

