Pretty easy to handle dups: just change to `where...

# random

[rocketraman]

Pretty easy to handle dups: just change to where left = [ y | y <- xs, y <= x ]