#include <stdio.h>

int min,s[20],n,tagen[20],bra[20];

void MLX(int ndisk,int fill, int left,int first) {
  int p,ok;
  if(left==0) {
    min=ndisk;
    for(p=0;p<n;p++) bra[p]=tagen[p];
    return;
  }
  if(fill==0) {
    for(p=0;p<n;p++) if(!tagen[p]) break;
    tagen[p]=ndisk;
    MLX(ndisk,s[p],left-1,p+1);
    tagen[p]=0;
    return;
  }
  ok=0;
  for(p=first;p<n;p++) if(!tagen[p] && fill+s[p]<=650) {
    ok=1;
    tagen[p]=ndisk;
    MLX(ndisk,fill+s[p],left-1,p+1);
    tagen[p]=0;
  }
  if(!ok && ndisk<min-1) {
    for(p=0;p<first;p++) if(!tagen[p] && fill+s[p]<=650) break;
    if(p==first) MLX(ndisk+1,0,left,0);
  }
}

int main() {
  int a,c;
  printf("Antal kataloger ? ");
  scanf("%d",&n);
  for(a=0;a<n;a++) {
    printf("Storlek på katalog %d ? ", a+1);
    scanf("%d",&s[a]);
    tagen[a]=0;
  }
  min=n+1;
  MLX(1,0,n,0);
  printf("Minimalt antal skivor: %d\n",min);
  for(a=1;a<=min;a++){
    for(c=0;c<n;c++) if(bra[c]==a) printf("%d ",s[c]);
    printf("\n");
  }
  return 0;
}