let range (a:int) (b:int) = let rec range a b acc = if a>b then acc else (range a (b-1) (b::acc)) in range a b []