Haskell test

gistfile1.hs

module Main where

import Prelude
import System.Random

adj = ["funny", "soft", "neat", "tasteful", "aerodynamic", "smooth", "hard", "circle-shaped", "tiny", "long", "hairy", "adorable", "bloody", "clean", "dark", "elegant", "fancy", "filthy", "gorgeus", "light", "motionless", "plain", "shiny", "sparkling", "ugly", "unusual", "breakable", "busy", "concerned", "dead", "different", "fragile", "helpless", "anxious", "bad", "awful", "clumsy", "envious", "foolish", "grumpy", "jealous", "nervous", "scary", "terrible", "thoughtless", "wicked"]
noun = ["cat", "dog", "chair", "couch", "door", "pet", "human", "car", "refridgerator", "television", "napkin", "book", "cellphone", "man", "mountain", "house", "photograph", "movie", "train", "country", "clock", "pen", "milk", "water", "waiter", "sock", "monkey"]
creative = [a ++ " " ++ n | a <- adj, n <- noun]
cl = (length creative) - 1

main = do
    gen <- newStdGen
    let (rand, _) = randomR (0, cl) gen
    let phrase = creative!!rand ++ "."
    let h = head phrase
    let aan = if (h `elem` "aeiou") then "an" else "a"
    putStrLn ("Your mother was " ++ aan ++ " " ++ phrase)