f [] = 0
f (x:xs) = x + f xs
numword x
| x < 0 = "Negative"
| x == 0 = "Zero"
| otherwise = "Positive"
h x = constant * x
where constant = 100
yis65 x = let (parabola = 10 * x * x + 25) in parabola == 65
numit value = case (value) of
5 -> "Five"
4 -> "Four"
_ -> "Something else"