Flexible generation of identicons in Haskell - View it on GitHub