D.4 Ĉapitro 10

por ludo  
# Oni pretigas la nombron serĉotan kaj la nombro de provoj  
provizu "nombro hazardon 32  
provizu "nombrilo 0  
buklo  
fino  
 
por buklo  
leg [proponu nombron] "provo  
se nombra? :provo  
  [# Se la enigita valoro ja estas nombro  
   se :nombro=:provo  
      [s fr fr [vi gajnis post ] :nombrilo+1 [provo(j)]]  
      [se :provo>:nombro  
            [s [Malpli granda]]  
            [s [Pli granda]]  
       provizu "nombrilo :nombrilo+1  
       buklo]]  
  [skribu [Vi devas enigi validan nombron!] buklo]  
fino