eval (TableLit vs) = do
  vs' <- evalList vs []
  return $ Table (zip [Number (fromIntegral x) | x <- [1..length vs]] vs')
eval (TableLit vs) = do
  vs' <- evalList vs []
  return $ Table (zip [Number (fromIntegral x) | x <- [1..length vs]] vs')
eval (TableLit vs) = do
  vs' <- evalList vs []
  return $ Table (zip [Number (fromIntegral x) | x <- [1..length vs]] vs')