# prac0602.rb
# 標準入力文字列から情報を抽出する。

doc = Array.new

$stdin.each{|line|
  line.chomp!
  doc << line
}

h = Hash.new

doc.each{|line|
  while /you can (\S+)/i =~ line
    h[$1] = []
    line = $'
  end
}

h.keys.each{|keyword|
  pattern = Regexp.new('(?:^|\s+)' + keyword + '\s+(\S+)')
  doc.each{|line|
    while pattern =~ line
      h[keyword] << $1
      line = $'
    end
  }
}

p h['use']