let score=function "0",b->"15",b|"15",b->"30",b|"30",b->"40",b|"40","A"->"40","40"|"40",b->"A",b|_,b->"Win",b

List.scan (fun (a,b)->function 2->score(b,a) |_->score(a,b))  ("0","0")  [1;2;1;1;1;2;1;1;1;1]

//Musa.Jahanaghir@Live.com