Haskell Simulator of Quantum Computer