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