--------------------------------------------------------------------------------

ordered :: Ord a => [a] -> Bool
ordered []       = True
ordered :: Ord a => [a] -> Bool
ordered []       = True
ordered []       = True