for example something like this to get the above average numbers

aboveAverage :: (Ord a, Fractional a) => a -> a -> a -> Int
aboveAverage x y z  = length [a| a <- [x,y,z], a > average x y z ]

after a code like this syntax highlighting does not work anymore