Haskell clone of Boundary's k-ordered unique id service