--  :load "c:\\HaskellProgs\\chap5_3.hs"   


scalar_product l1 l2 = sum [ x*y | (x,y) <- (zip l1 l2) ]