<pre>function parseList L  repeat with C = 1 to the length of L    if char C of L is not in "0123456789,." then sayProblem "Seulement des chiffres, des virgules ou des points!"  end repeat  put empty into R  put the number of items in L into NB  repeat with i = 1 to NB    get item i of L    put offset("..",it) into P    if P > 0 then      put char 1 to P-1 of it into A      if A is not an integer then sayProblem A & " n'est pas un chiffre acceptable!"      delete char 1 to P+1 of it      put it into Z      if Z is not an integer then sayProblem Z & " n'est pas un chiffre acceptable!"      if Z < A then sayProblem Z && "est plus petit que" && A      repeat with j = A to Z        put j & return after R      end repeat    else      put it & return after R    end if  end repeat  delete last char of R  sort R numeric  return Rend parseList</pre>