// The input sequence is expected to contain only integers between 0 - 9.

let condense digits = 
    digits |> Seq.reduce (fun x y -> [|0;1;2;3;4;5;6;7;8;9;1;2;3;4;5;6;7;8;9|].[x + y])

// e.g.  condense [1;2;3;4;5;6;7;8;9;]  gives a result 9