program odd_string
  implicit none
  character(100000) :: s
  integer           :: n, i
  read(*,*) s
  s = adjustl(s)
  n = len_trim(s)
  do i = 1, n, 2
    write(*,'(a)',advance='no') s(i:i)
  end do
  write(*,*)
end program odd_string