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 []