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