-- The data columns
columns :: Db a -> Db a
columns db = tail $ foldl add_on (map (\x->[x]) (head $ rows db)) (tail $ rows db)
                where
                    add_on xss ys = zipWith (\xs y -> xs++[y]) xss ys


-- Some functions to play with columns

-- Reads a strings to Maybe Double
columns :: Db a -> Db a
columns db = tail $ foldl add_on (map (\x->[x]) (head $ rows db)) (tail $ rows db)
                where
                    add_on xss ys = zipWith (\xs y -> xs++[y]) xss ys


-- Some functions to play with columns

-- Reads a strings to Maybe Double
columns db = tail $ foldl add_on (map (\x->[x]) (head $ rows db)) (tail $ rows db)
                where
                    add_on xss ys = zipWith (\xs y -> xs++[y]) xss ys


-- Some functions to play with columns

-- Reads a strings to Maybe Double