[Haskell-beginners] Efficient Binary Multiplication