6.001, Spring Semester, 2005--Quiz Il CONTENTS (lambda o(ask folder-part ' contents)) ADD-THING (lambda (thing) (ask folder-part 'add-thing thing)) SHEETS (lambda oo) folder-part root-part))) (define (create-cabinet name) (create-instance cabinet name)) assume t he follow ing definitions have be lluated. (define doc1 (create-document 'doc1 10)) (define doc2 (create-document 'doc2 100)) (define folder1 (create-folder >folder 1 (ask folder1 'add-thing doc1) (ask folder1 'add-thing doc2) (define cab (create-cabinet 'cab)) (ask cab 'add-thing folder1 What is the value of each of the following expressions, assuming they are evaluated in the order shown?(Write unspec for unspecified, 720-method for an error because there is no met hod, error for some other error, or procedure for a procedure value. Question 13.(ask folder 1'DOCUMENTS) Question 14.(ask folderl'SHEETS￾
      ￾' 23*/-*/. ￾
 ￾ ￾# 
 '  +44 /1"*5 ￾
 ￾ ￾# 
 ' 

  .1--/. ￾
 ￾ & 
 '  ' ￾
 ￾   ￾    %% ) , =% )- 0 -2  
￾ ￾ 
￾ 
￾   
￾ ￾ 
￾ 
￾   
 ￾ 
 
  
   
￾  
   
￾  ￾ ￾ ￾ ￾  ￾   
 :) % ) -  )  ) , <%%%& %% ).  -  )  %),I ?: ￾
  %=&
     0% ) %  )&   % ) &  ￾    -!B ￾
 ) ?%/ ￾ 3D
 B ￾
  ) ?%/ ￾ 3B