-module(mysort).
-export([myMergeSort/1]).

myMergeSort([]) -> [];
myMergeSort(MyList) -> mergeInPairs([ [X] || X <- MyList]).

mergeInPairs([H|[]]) -> H;
mergeInPairs([List1, List2 | T]) -> myMerge(mergeInPairs(T), myMerge(List1, List2)).

myMerge(MyList, []) -> MyList;
myMerge([], MyList) -> MyList;
myMerge(MyList1, MyList2) -> [H1|T1] = MyList1,
                             [H2|T2] = MyList2,
                             if
                                H1 < H2 ->
                                        [H1] ++ myMerge(T1, MyList2);
                                true ->
                                        [H2] ++ myMerge(MyList1, T2)
                             end.