module _48

let series n =
    [1..n]
    |> List.map (fun d-> System.Numerics.BigInteger.Pow(bigint d, d))
    |> List.fold (+) 0I

let seriesEnd =
    series 1000
    |> common.lastDigits 10