hello|
$do random<1;128;> -> n|
$0 -> guess|
until variable guess = variable n [
    $do input<'guess: ';> -> guess|
    do print<'too high';> if variable guess > variable n|
    do print<'too low';> if variable guess < variable n|
    do print<'correct!';> if variable guess = variable n|
]|
goodbye|