program prob003
  implicit none
  integer i,j,k,ans
  character(len=100) str
  read(*,'(a)') str
  ans=0
  do i=1,len(trim(str))
     k=0
     do j=i,len(trim(str))
        if(str(j:j)=='A'.or.str(j:j)=='C'.or.str(j:j)=='G'.or.str(j:j)=='T') then
           k=k+1
        else
           exit
        end if
     end do
     ans=max(ans,k)
  end do
  print*, ans
end program prob003