-- Takes the first column as the row names
rownames :: (Show a) => Db a ->[String]
rownames = map (show . snd . head) . tail
rownames :: (Show a) => Db a ->[String]
rownames = map (show . snd . head) . tail
rownames = map (show . snd . head) . tail