Implementing LLL algorithm in Haskell

Question

I\'m implementing the LLL basis reduction algorithm in Haskell. I\'m basing my code on the pseudocode on Wikipedia. Here is what I have so far. Apologies for the code dump;