Shor's algorithm in Haskell | Алгоритм Шора на языке Haskell