let createorderedlist (n:int) = let rec createordlist (n:int) (p:int) = if (p=n) then [p] else p::(createordlist n (p+1)) in if (n=0) then [] else createordlist n 1