#文書の中にある同じ単語をいくつあることを確認できるプログラム

word =  gets.
        chomp.
        downcase                    #小文字で探したい単語の入力
counter = 0                         #数字を出すためにINTをつくろ
while true
        sentence =  gets.
                    chomp           #大文書をとる
  break if
        sentence=="END_OF_TEXT"     #プログラム中止する
counter += sentence.                #大文
           downcase.                #小文字
           split.                   #単語分ける
           count(word)              #単語数をカウント
end

puts counter                        #単語数

