Haskell

hi, how do I define this function: tupleWithf :: [Int] -> [(Int, Int)] such that tupleWithf [x1,x2,.....,xn] = [ (f x1, x1), (f x2 x2),...., (f xn, xn) ]