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

read(*,*) s
if( s == 'a' .or. s=='i' .or. s =='u' .or. s=='e' .or. s=='o' ) then
   write(*,*) "vowel"
else
   write(*,*) "consonant"
end if


end program main
