insertSorted False x xs@(min : maxs)
  | min >= x  = x : xs
  | otherwise = min : insertSorted False x maxs
insertSorted False x xs@(min : maxs)
  | min >= x  = x : xs
  | otherwise = min : insertSorted False x maxs
insertSorted False x xs@(min : maxs)
  | min >= x  = x : xs
  | otherwise = min : insertSorted False x maxs