# User input/text, in LIL
write "Enter a string: "
set text [readline]

set num 0
while {[canread] && $num != 75000} {
    write "Enter the number 75000: "
    set num [readline]
}

print $text
print $num