let minDivsor n = seq{3L..n} |> Seq.where(fun x -> n%x=0L) |> Seq.head let n = stdin.ReadLine() |> int64 n |> minDivsor |> printfn "%i"