program UOIAUAI
  implicit none
  character(1) :: s
  integer      :: n
  read(*,*) s
  n = ichar(s) - 97
  if (n*(n-4)*(n-8)*(n-14)*(n-20).eq.0) then
    write(*,'(a)') 'vowel'
  else
    write(*,'(a)') 'consonant'
  end if
end program UOIAUAI