module _20

let getSum =
    let n = [ 1I .. 100I ] |> List.fold (*) 1I
    (string n).ToCharArray()
        |> Array.map (string >> int)
        |> Array.fold (fun acc d -> acc + d) 0