Alles Gute zum (ich glaube mal dead_orc) 18. Geburtstag!
Denk dran, ab jetzt wird's schlechter!

Natürlich darf ein Sinnlosprogramm auch nicht fehlen:
Code: 
gratulation :: String -> String
gratulation name
    | length [c | c<-name, c == 'q' || c == 'm'] == length name
        && length name == 2
        && name !! 0 < name !! 1
            = "Herzlichen Glueckwunsch zum 18. Geburtstag! ^^"
    | otherwise = "Was  willst'n du da?"