open System 
open System.Text

type Explicit =          
    static member inline ($) (_:int32, _:Explicit) = int
    static member inline ($) (_:int64, _:Explicit) = int64

let inline convert (value:'a): 'b = 
    (Unchecked.defaultof<'b> $ Unchecked.defaultof<Explicit>) value

let inline fromInt (x: int): 'a = convert x

module NumericLiteralG =
    let inline FromZero(): 'a = LanguagePrimitives.GenericZero
    let inline FromOne(): 'a = LanguagePrimitives.GenericOne
    let inline FromInt32 (n: int): 'a = fromInt n

let R() = Console.ReadLine()

let f (p: int array) (k: int): int =
    Array.sort p 
    |> Array.take k 
    |> Array.sum

let N, K = let t = R().Split() |> Array.map (string >> int) in t.[0], t.[1]
let p = R().Split() |> Array.map (string >> int)

f p K 
|> printfn "%i"