product xs = foldl (*) 1 xs