g :: [Int] -> [Int] -> Int
g (x:xs) (y:ys)
| (x:xs) == [] && (y:ys) == [] = 1
| otherwise = x*y + g xs ys
処理終わらない。助けて