Dim k s as integer