program yukicoder_2599
  use, intrinsic :: iso_fortran_env
  implicit none
  character(len=*), parameter :: s1 = "watermelon", s2 = "beachball", s3 = "shrinebell"
  character(len=10) :: s, t
  read(input_unit, *) s
  read(input_unit, *) t
  if (trim(s) == s1) then
     write(output_unit, '(a)') trim(merge(s2//" ", s3, trim(t) == s3))
  else if (trim(s) == s2) then
     write(output_unit, '(a)') trim(merge(s1, s3, trim(t) == s3))
  else
     write(output_unit, '(a)') trim(merge(s1, s2//" ", trim(t) == s2))
  end if
end program yukicoder_2599