A simple implementation of the single iteration Merkle-Hellman cryptosystem in haskell