let A = [1;2;3;4]
let B a = a*2;
let C = List.foldBack(fun x list -> B(x)::list) A []