mkcube[x_,y_,z_,a_,b_,c_]:=
(
F[1]={{0,0,0},{0,b,0},{a,b,0},{a,0,0},{0,0,0}};
F[2]=Reverse[F[1]+Table[{0,0,c},{5}]];
F[3]={{0,0,0},{a,0,0},{a,0,c},{0,0,c},{0,0,0}};
F[4]=Reverse[F[3]+Table[{0,b,0},{5}]];
F[5]={{0,0,0},{0,0,c},{0,b,c},{0,b,0},{0,0,0}};
F[6]=Reverse[F[5]+Table[{a,0,0},{5}]];
su=Table[{x,y,z},{5}];
Return[Table[F[i]+su,{i,1,6}]];
)

mkchair[l_]:=(
L1=mkcube[0,0,0,1,1,6];
L2=mkcube[5,0,0,1,1,6];
L3=mkcube[0,5,0,1,1,6];
L4=mkcube[5,5,0,1,1,6];
SE=mkcube[0,0,6,6,6,1];
LA=mkcube[0,0,7,1,1,6];
RA=mkcube[0,5,7,1,1,6];
LB=mkcube[0,1,9,1,4,1];
HB=mkcube[0,1,12,1,4,1];
Return[Join[L1,L2,L3,L4,SE,LA,RA,LB,HB]]
)

CHAIR={{{0, 0, 0}, {0, 1, 0}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}}, 
  {{0, 0, 6}, {1, 0, 6}, {1, 1, 6}, {0, 1, 6}, {0, 0, 6}}, 
  {{0, 0, 0}, {1, 0, 0}, {1, 0, 6}, {0, 0, 6}, {0, 0, 0}}, 
  {{0, 1, 0}, {0, 1, 6}, {1, 1, 6}, {1, 1, 0}, {0, 1, 0}}, 
  {{0, 0, 0}, {0, 0, 6}, {0, 1, 6}, {0, 1, 0}, {0, 0, 0}}, 
  {{1, 0, 0}, {1, 1, 0}, {1, 1, 6}, {1, 0, 6}, {1, 0, 0}}, 
  {{5, 0, 0}, {5, 1, 0}, {6, 1, 0}, {6, 0, 0}, {5, 0, 0}}, 
  {{5, 0, 6}, {6, 0, 6}, {6, 1, 6}, {5, 1, 6}, {5, 0, 6}}, 
  {{5, 0, 0}, {6, 0, 0}, {6, 0, 6}, {5, 0, 6}, {5, 0, 0}}, 
  {{5, 1, 0}, {5, 1, 6}, {6, 1, 6}, {6, 1, 0}, {5, 1, 0}}, 
  {{5, 0, 0}, {5, 0, 6}, {5, 1, 6}, {5, 1, 0}, {5, 0, 0}}, 
  {{6, 0, 0}, {6, 1, 0}, {6, 1, 6}, {6, 0, 6}, {6, 0, 0}}, 
  {{0, 5, 0}, {0, 6, 0}, {1, 6, 0}, {1, 5, 0}, {0, 5, 0}}, 
  {{0, 5, 6}, {1, 5, 6}, {1, 6, 6}, {0, 6, 6}, {0, 5, 6}}, 
  {{0, 5, 0}, {1, 5, 0}, {1, 5, 6}, {0, 5, 6}, {0, 5, 0}}, 
  {{0, 6, 0}, {0, 6, 6}, {1, 6, 6}, {1, 6, 0}, {0, 6, 0}}, 
  {{0, 5, 0}, {0, 5, 6}, {0, 6, 6}, {0, 6, 0}, {0, 5, 0}}, 
  {{1, 5, 0}, {1, 6, 0}, {1, 6, 6}, {1, 5, 6}, {1, 5, 0}}, 
  {{5, 5, 0}, {5, 6, 0}, {6, 6, 0}, {6, 5, 0}, {5, 5, 0}}, 
  {{5, 5, 6}, {6, 5, 6}, {6, 6, 6}, {5, 6, 6}, {5, 5, 6}}, 
  {{5, 5, 0}, {6, 5, 0}, {6, 5, 6}, {5, 5, 6}, {5, 5, 0}}, 
  {{5, 6, 0}, {5, 6, 6}, {6, 6, 6}, {6, 6, 0}, {5, 6, 0}}, 
  {{5, 5, 0}, {5, 5, 6}, {5, 6, 6}, {5, 6, 0}, {5, 5, 0}}, 
  {{6, 5, 0}, {6, 6, 0}, {6, 6, 6}, {6, 5, 6}, {6, 5, 0}}, 
  {{0, 0, 6}, {0, 6, 6}, {6, 6, 6}, {6, 0, 6}, {0, 0, 6}}, 
  {{0, 0, 7}, {6, 0, 7}, {6, 6, 7}, {0, 6, 7}, {0, 0, 7}}, 
  {{0, 0, 6}, {6, 0, 6}, {6, 0, 7}, {0, 0, 7}, {0, 0, 6}}, 
  {{0, 6, 6}, {0, 6, 7}, {6, 6, 7}, {6, 6, 6}, {0, 6, 6}}, 
  {{0, 0, 6}, {0, 0, 7}, {0, 6, 7}, {0, 6, 6}, {0, 0, 6}}, 
  {{6, 0, 6}, {6, 6, 6}, {6, 6, 7}, {6, 0, 7}, {6, 0, 6}}, 
  {{0, 0, 7}, {0, 1, 7}, {1, 1, 7}, {1, 0, 7}, {0, 0, 7}}, 
  {{0, 0, 13}, {1, 0, 13}, {1, 1, 13}, {0, 1, 13}, {0, 0, 13}}, 
  {{0, 0, 7}, {1, 0, 7}, {1, 0, 13}, {0, 0, 13}, {0, 0, 7}}, 
  {{0, 1, 7}, {0, 1, 13}, {1, 1, 13}, {1, 1, 7}, {0, 1, 7}}, 
  {{0, 0, 7}, {0, 0, 13}, {0, 1, 13}, {0, 1, 7}, {0, 0, 7}}, 
  {{1, 0, 7}, {1, 1, 7}, {1, 1, 13}, {1, 0, 13}, {1, 0, 7}}, 
  {{0, 5, 7}, {0, 6, 7}, {1, 6, 7}, {1, 5, 7}, {0, 5, 7}}, 
  {{0, 5, 13}, {1, 5, 13}, {1, 6, 13}, {0, 6, 13}, {0, 5, 13}}, 
  {{0, 5, 7}, {1, 5, 7}, {1, 5, 13}, {0, 5, 13}, {0, 5, 7}}, 
  {{0, 6, 7}, {0, 6, 13}, {1, 6, 13}, {1, 6, 7}, {0, 6, 7}}, 
  {{0, 5, 7}, {0, 5, 13}, {0, 6, 13}, {0, 6, 7}, {0, 5, 7}}, 
  {{1, 5, 7}, {1, 6, 7}, {1, 6, 13}, {1, 5, 13}, {1, 5, 7}}, 
  {{0, 1, 9}, {0, 5, 9}, {1, 5, 9}, {1, 1, 9}, {0, 1, 9}}, 
  {{0, 1, 10}, {1, 1, 10}, {1, 5, 10}, {0, 5, 10}, {0, 1, 10}}, 
  {{0, 1, 9}, {1, 1, 9}, {1, 1, 10}, {0, 1, 10}, {0, 1, 9}}, 
  {{0, 5, 9}, {0, 5, 10}, {1, 5, 10}, {1, 5, 9}, {0, 5, 9}}, 
  {{0, 1, 9}, {0, 1, 10}, {0, 5, 10}, {0, 5, 9}, {0, 1, 9}}, 
  {{1, 1, 9}, {1, 5, 9}, {1, 5, 10}, {1, 1, 10}, {1, 1, 9}}, 
  {{0, 1, 12}, {0, 5, 12}, {1, 5, 12}, {1, 1, 12}, {0, 1, 12}}, 
  {{0, 1, 13}, {1, 1, 13}, {1, 5, 13}, {0, 5, 13}, {0, 1, 13}}, 
  {{0, 1, 12}, {1, 1, 12}, {1, 1, 13}, {0, 1, 13}, {0, 1, 12}}, 
  {{0, 5, 12}, {0, 5, 13}, {1, 5, 13}, {1, 5, 12}, {0, 5, 12}}, 
  {{0, 1, 12}, {0, 1, 13}, {0, 5, 13}, {0, 5, 12}, {0, 1, 12}}, 
  {{1, 1, 12}, {1, 5, 12}, {1, 5, 13}, {1, 1, 13}, {1, 1, 12}}}