indexed :: [a] -> [(Int, a)]
indexed = zip [0..]