oto zgadnij
 niech "los 1 + losowa 100
 niech "ilePrób 1
 ps [Zgadnij liczbę z zakresu 1,..., 100]
 wpisz "Zgaduj niech "traf pierw cl
 dopóki [nie :traf = :los]
  [jeżeli :traf > :los
  [ps [Za duża]]
  [ps [Za mała]]
  zwiększ "ilePrób
  wpisz "Zgaduj niech "traf pierw cl]
 (ps :traf [Trafiona! Prób było:] :ilePrób)
już