#!/usr/bin/perl -w

use v5.16;
use strict;

$_ = <>;

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

my $s = 0;
for my $v (split //) {
	$x[$s]++ if $v eq '>';
	$y[$s]++ if $v eq 'v';
	$x[$s]-- if $v eq '<';
	$y[$s]-- if $v eq '^';
	$seen{$x[$s],$y[$s]}++;
	$s = 1-$s;
}

say scalar keys %seen;
	

