cellKind :: String -> Kind
cellKind cell = case (reads cell :: [(Double, String)]) of
    [_] -> Number
    _ -> Other

-- a column is right justified if it contains more numbers than non-numbers
cellKind :: String -> Kind
cellKind cell = case (reads cell :: [(Double, String)]) of
    [_] -> Number
    _ -> Other

-- a column is right justified if it contains more numbers than non-numbers
cellKind cell = case (reads cell :: [(Double, String)]) of
    [_] -> Number
    _ -> Other

-- a column is right justified if it contains more numbers than non-numbers