[split
gergo@complang.tuwien.ac.at**20090127154041] {
hunk ./compiler.fs 790
-    interactive-mode on
hunk ./compiler.fs 796
+            interactive-mode on
hunk ./compiler.fs 827
+s" split([X|Xs], X, [X|Ls], Gs) :- split(Xs, X, Ls, Gs)." compile eval
+s" split([L|Xs], X, [L|Ls], Gs) :- compare_terms(less, L, X), split(Xs, X, Ls, Gs)." compile eval
+s" split([G|Xs], X, Ls, [G|Gs]) :- compare_terms(greater, G, X), split(Xs, X, Ls, Gs)." compile eval
}