fvClBody :: [Id] -> ClBody -> [Id]