import Numeric.LinearAlgebra

a :: Matrix R
a = (3><3)
  [ 12, -51,   4
  ,  6, 167, -68
  , -4,  24, -41]

main = do
  print $ qr a