type
  t=packed set of 0..7;
  
begin
end.