-loadTabular :: (Monad m) => String -> ([String] -> m (String, a))
- -> (a -> Int -> a) -> m ([(String, Int)], [(Int, a)])
-loadTabular text_data convert_fn set_fn = do
+loadTabular :: (Monad m, Element a) =>
+ String -> ([String] -> m (String, a))
+ -> m ([(String, Int)], [(Int, a)])
+loadTabular text_data convert_fn = do