Problem:
Score : 100 points

Problem Statement

Given a lowercase English letter c, determine whether it is a vowel. Here, there are five vowels in the English alphabet: a, e, i, o and u.

Constraints

c is a lowercase English letter.

Input

The input is given from Standard Input in the following format:

c

Output

If c is a vowel, print vowel. Otherwise, print consonant.

Sample Input 1

a

Sample Output 1

vowel

Since a is a vowel, print vowel.

Sample Input 2

z

Sample Output 2

consonant

Sample Input 3

s

Sample Output 3

consonant

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Data.List

test [] = "YES"
test str@('m':sx) = if isPrefixOf "maerd" str
                    then test $ drop 5 str
                    else "NO"
test str@('r':sx) = if isPrefixOf "remaerd" str
                    then test $ drop 7 str
                    else if isPrefixOf "resare" str
                         then test $ drop 6 str
                         else "NO"
test str@('e':sx) = if isPrefixOf "esare" str
                    then test $ drop 5 str
                    else "NO"
test _ = "NO"

main = do
  l <- getLine
  let o = test $ reverse l
  putStrLn o