( doit
=   out'"Enter a string"
  & get':?mystring
  &   whl
    ' ( out'"Enter a number"
      & get':?mynumber
      & !mynumber:~#
      & out'"I said:\"a number\"!"
      )
  & out$(mystring is !mystring \nmynumber is !mynumber \n)
);