1*46439007SCharles.ForsythSort: module { 2*46439007SCharles.Forsyth PATH: con "/dis/lib/sort.dis"; 3*46439007SCharles.Forsyth sort: fn[S, T](s: S, a: array of T) 4*46439007SCharles.Forsyth for{ 5*46439007SCharles.Forsyth S => 6*46439007SCharles.Forsyth gt: fn(s: self S, x, y: T): int; 7*46439007SCharles.Forsyth }; 8*46439007SCharles.Forsyth}; 9