#!/usr/bin/perl -w

use v5.16;

my ($x, $z) = (0, 0);
while (<>) {
	my ($dir, $num) = split /\s+/;
	$x+=$num if $dir eq 'forward';
	$z+=$num if $dir eq 'down';
	$z-=$num if $dir eq 'up';
}
say $x*$z;

