Untitled

module Main where

import Data.List (transpose)

main :: IO ()
main = do
  contents <- readFile "input.txt"
  let [llist, rlist] = transpose $ map (map read . words) $ lines contents :: [[Int]]
  print $ sum $ (map (\x -> x * (length $ filter (== x) rlist)) llist)