label :: [FilePath] -> [Result] -> [String]
label fs rs = map (showFileResult padding) frPairs where
    padding = widest rs
    frPairs = zip (fs ++ ["total"]) rs
label :: [FilePath] -> [Result] -> [String]
label fs rs = map (showFileResult padding) frPairs where
    padding = widest rs
    frPairs = zip (fs ++ ["total"]) rs
label fs rs = map (showFileResult padding) frPairs where
    padding = widest rs
    frPairs = zip (fs ++ ["total"]) rs