#!/usr/bin/perl

use strict;

my @v;
my $string;
my $counter = 0;
my $counterfinal=0;

while (<stdin>)
{
	if ($counter > 0)
	{
		@v=split(//,$_);
	
		while (<@v>)
		{
			$counterfinal++;
			if ($_ eq "U" || $_ eq "X")
			{		
				print $counterfinal;
			}		
		}
	}
	$counter++;
}