:- [dsutil,pdsdb,pdsdc,pdsini].
 
isort([X|Xs],Ys) :- isort(Xs,Zs),insert(X,Zs,Ys).
isort([],[]).
 
insert(X,[Y|Ys],[Y|Zs]) :- X < Y,insert(X,Ys,Zs).
insert(X,[Y|Ys],[X,Y|Ys]) :- X =< Y.
