-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.