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