rListElem :: [a] -> Int -> (a,Int)
rListElem xs n =
  let (q,r) = quotRem n (length xs)
  in (xs !! r, q)
rListElem :: [a] -> Int -> (a,Int)
rListElem xs n =
  let (q,r) = quotRem n (length xs)
  in (xs !! r, q)
rListElem xs n =
  let (q,r) = quotRem n (length xs)
  in (xs !! r, q)