(import write utils)

(let:int won 0)
(let:int number (% (random) 20))

(write "Guess a number between 0 and 20")
(newline)
(while (! won)
  (write "Your guess ? ")
  (let guess (:int (input)))
  (if (! (is:null guess))
    (if (> guess number)
      (write "The number is smaller")
      (newline)
    )
    (if (< guess number)
      (write "The number is larger")
      (newline)
    )
    (if (= guess number)
      (write "You won !")
      (newline)
      (won 1)
    )
  )
  (if (! won)
    (write "Sorry, try again.")
    (newline)
  )
)