msort nil nil msort . x y . min x y msort del min x y . x y min x nil x min x . y z if <= x y min x z min y z del x nil nil del x . y z if = x y z . y del x z msort 1 nil 0 . 2 min 2 del 2 if 3 <= 2 = 2 FULL ./TRS/SK90/4.60.trs