#!/usr/bin/perl

# By Craig Kelley -- using perl 5.8.8

use strict;
use warnings;

my @SEARCH = qw(m o z y);
my $sum = 0;

while (my $line = <STDIN>) {
   $line =~ s/\s+$//g;
   my $index = 0;
   for (my $i=0; $i<length($line); $i++) {
      my $char = substr($line, $i, 1);
      if ($char eq $SEARCH[$index]) {
	 $index++;
	 if ($index == scalar(@SEARCH)) {
	    $i = length($line);
	 }
      }
   }
   if ($index == scalar(@SEARCH)) {
      $sum++;
   }
}
print "$sum\n";