-module(msrt).
-export([mSrt/1]).
mSrt([])->[];
mSrt([E])->[E];
mSrt(Ls)->
  Hf=length(Ls) div 2,
  {L1,L2}=lists:split(Hf,Ls),
  mMrg(mSrt(L1),mSrt(L2)).
mMrg([],Ls)->Ls;
mMrg(Ls,[])->Ls;
mMrg([E1|R1],[E2|R2]) when E1>E2->
  [E1|mMrg(R1,[E2|R2])];
mMrg(L1,[E2|R2]) -> [E2|mMrg(L1,R2)].