Ok, it seems a better.
thanks

Davi



To sort by distance to a given reference point you could use something
like

 import Data.List (sortBy)
 import Data.Ord (comparing)

 ...

 sortedExamples = sortBy (comparing (distance referenceEx)) listExs