method private sort l =
      List.sort self#compare l