#!/usr/bin/perl -w

use v5.16;
use strict;

$_ = <>;

my ($x, $y) = (0, 0);
$; = ',';
my %seen = ("0,0" => 1);

for my $v (split //) {
	$x++ if $v eq '>';
	$y++ if $v eq 'v';
	$x-- if $v eq '<';
	$y-- if $v eq '^';
	$seen{$x,$y}++;
}

say scalar keys %seen;
	

