Further optimization, import only find and sort from Data.List