Dim r f (1