string s;
message "write a string: ";
s := readstring;
message s;
message "write a number now: ";
b := scantokens readstring;
if b = 750:
  message "You've got it!"
else:
  message "Sorry..."
fi;
end