[Haskell-cafe] complex multiplication function in Haskell