1-- Should fail without extensions.
2dotp_double :: [:Double:] -> [:Double:] -> Double
3dotp_double xs ys = sumP [:x * y | x <- xs | y <- ys:]
4
5