-- select y xs extracts from the list xs, all the items
--  whose value is less than y.

select :: Ord a => a -> [a] -> [a]
select y [] = []
select y (x:xs) 
    | x < y      = x : select y xs
    | otherwise  = select y xs