import           Control.Monad
import           Data.IORef
import           Data.List.Split
import           Data.Maybe
import           Data.List

main :: IO ()
main = do
  c <- getChar
  putStrLn $ if isNothing (elemIndex c "abcde") then "consonant" else "vowel"