akJe mojeMeno [

  vychod
  [
 pridKuMne
 hraOtvor "vieden
  ]
  
  obraz
  [
 otocSaSem
 phovor "|Že by nejaký slávny učenec z Viedne?|
  ]
  
  teolog
  [
 otocSaSem
 hovor "|Som Leonardo Huntpichler.|
 hovor "|Čo potrebuješ?|
 ak2 (pozri "postupVoViedni 0) = 2 [
   phovor "|Potreboval by som komentáre ku...|
   hovor "|Vyber si to z police vpravo... ale nezabudni potom vrátiť!|
   zvys "postupVoViedni
 ] [
   pre :postava [hovor "|Teraz práve nič.|]
 ]
  ]
  
  skrina
  [
 pridKuMne
 phovor "|Je tu veľmi veľa rôznych knižiek od Huntpichlera.|
 akJe pozri "postupVoViedni 0 [
   2 [
     phovor "|Pred tým, ako niečo zoberiem, by som sa mal spýtať, či môžem.|
   ]
   3 4 [
     ak (pozri "postupVoViedni 0) = 4
       [ak spisy'pocetListov < 0 [odidOdoMna ukonci]]
     phovor "|Hmmm... je tu trochu neporiadok...|
     spisy'otvorenie
     kym [spisy'vidno] []
   ]
 ]
 odidOdoMna
  ]

]