module _40

let positiveIntegerConcat = 
    common.allIntegers
    |> Seq.collect common.numDigits
    |> common.takeIndexes ([1;10;100;1000;10000;100000;1000000] 
    |> List.map (fun d -> d - 1))
    |> Seq.fold (*) 1