program main
implicit none
integer :: i, j, k
character :: s*1, t*5

read(*,*) s
t = 'aeiou'
do i = 1, 5
   if( s==t(i:i) ) then
      write(*,*) 'vowel'
      stop
   end if
end do
write(*,*) 'consonant'




end program main
