fun {LAppend LL1 LL2}
 case LL1 of
lCons(H LT) then lCons(H fun {$} {LAppend {LT} LL2} end)
[] lNil then LL2 end
End

declare fun{ Orgazm LL A B}
case LL
of lCons(H LT) then if H%3 == 0then LAppend A lCons(H fun{$} {Orgazm LT A B}) else   LAppend B lCons(H fun{$} {Orgazm LT A B}) end
[] lNil then [A;B]
end