PROGRAM CBINPACK (INPUT,OUTPUT) ;

  TYPE KOSU=ARRAY [ 0..100 ] OF INTEGER ;
       KAZU=ARRAY [ 0..100,0..100 ] OF INTEGER ;

  VAR X,Y,Z,W:KOSU ;
      BB:KAZU ;
      I,N,T,Q,QQ,MAX:INTEGER ;


 {$I B:BINPACK.SRC}

  BEGIN
    READLN (N) ;
    READLN (Q) ;
    FOR I:=1 TO N DO
      READ (X[I]) ;
    READLN ;
    SORT(X[I],Z);
    WRITE(lst,X[I],'I=2');
    FOR I:=1 TO N DO
      WRITE (lst,X[I],'  ') ;
    WRITELN (lst);
    PACK(MAX,N,Q,X,Y,BB) ;
    FOR T:=1 TO MAX DO
    BEGIN
      WRITE (lst,'BIN NO.  ',T) ;
      WRITELN (lst);
      FOR I:=1 TO  Y[T]-1 DO
        WRITE (lst,'  ',BB[I,T]) ;
      WRITELN (lst);
    END
  END.