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